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show_system_block, show ogeseerrers 2 blocks (SB/PB) 
show_system_block tables & action rout 
show, a show unit control block 
get. uch, | uce to peces storage 
o- _ucb Tr 
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action routines 

sh ow_i0q, “Blosley 1/0 — for device 

show_acpq, display acp que 

volume control block tables *. yi routines 
print_cdrp, print a single CDRP 

print_irp, afiict a single IRP blo ~ 

show_vcb, D velune Control Block (VCB) 
volume control block tables & action routines 
show_cddb, Display Class Driver Data Block (CDDB) 
clasS driver data block tables & action routines 
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storage definition 
read-only data definitions 
display © ot | ar =~ display UCB, etc. given its address 
display_ sdev ce ~~ display i/o data structures 
peree device == parse device name into name and unit number 
show_ddbs == dis splay device data blocks (DDBs) 
get_ddb -- locate the next DDB in the 1/0 database 
show_controller, Display con relier perenne on 
show_controller tables & action routin 
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title Govice otsotey device data structures 
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SERRA AAHEREKAAAAAAAA TAKARA RARER AAAAAAAAAAAATETRERAKAAeATAAAeeee eee ees 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

DIGITAL E UIPHENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 

TH 

0 CCORDANCE WITH THE ufERMS OF SUCH LICEN SE AND WITH 

ON OF THE ABOVE COPYRI GH NOTICE. THIS SOFTWARE OR OTHER 
THEREOF MAY NOT BE P ROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
& 
— 
* 
* 
a 
% 
® 
* 
0 # 
TRANSFERRED. * 
* 
* 
* 
* 
® 
+ 
* 
* 
os 
* 


on 
=Oo2zZ 
xzVvVoOre rov 


1G 

AL EQ 

IGHTS 

por Tunas I$ gE UNDER A LICENSE AND MAY BE USED AND TH THe 
$l 

$s 

P 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
coRPORaT ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


* @eeeneeneeneneneeeneeneeenanane 


ARRRRRAAAAAAASALAALALALALELE SELES ELAS EERE ESET REESE EERE REESE ER EERE R REE SE SG 


SOOCOOCOCOCOOOOOOCOOOOOOOOOOOOOoOO 
SOOCOCOCOCOCOOCOOOCOOCOOSOOOOOOOoOOoOO 
SOSOOCCOCOCOOCOOCSOOOCOOOSOOOOOOSOOOOoOo 


peleleleleleloleololeoleoleolololelelel ol eolol ele) ol oleae) a) 
NOUS WN OC ODN UE WP (OOO NOU ES 


MPoMOPONONONON 2 S 


ad 


4 


H 11 
DEVI Display device data structures 16-SEP-1984 01:26:37 VAX/VMS M 4- 
V5u~000 Progran description 828 ats yi 84:98:73 SAV SRCIOEVICE MARI os dh 
a -sbttl Program description 
Facility 


This module contains routines to print device data 
structures for the i/o subsystem. 


Environment 

Native mode, User mode 
Author 

Tim Halvorsen, July 1978 
Modified by 


v03-011 &MB0110 Ellen M. Batbouta 24-Jul-1984 
Fix a typo in the SHOW DEVICE pa te and update the 
List of devices and device characteristics. 


v03-010 EMB0105 Ellen M. Batbouta 07-Jun-1984 

Add routines to display the contents of the class 
driver data blocks (CDDB) when displaying an msc 
served device. Also for mscp served devices chec 

2 additional queues before drawing the conclusion 
that the io request queue is empty. Fix a minor 
bug and include the node name in the display in 

the routine, SHOW SYSTEM_BLOCK. 


v03-009 EMD0082 Ellen M. Dusseault 12-Apr-1984 
Print the address of the cddb and the alternate cddb 
(if the device is mscp served) when displaying the ucb tables 
and action routines . Also display the reasons to wait 
count for mscp served devices. 
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v03-008 LmMP0221 L. Mark Pilant, 30-Mar-1984 11:53 
Change UCBSL_OWNUIC to ORBSL_OWNER and UCB$W_VPROT to 
ORBSW_PROT. 

v03-007 EMD0059 Ellen M. Dusseault 07-Mar-1984 


Fill in local ucb with zeroes in routine, GET_UCB, 
just in case next ucb fetched is shorter than the 
previous one. 


V03-006 WHM0002 Bill M 
Change IDB$B8_COMBO_VEC 


Feb-1984 


thews 16 
back to IDB$B_VECTOR. 


at 
TOR 


v03-005 TmK0008 Todd M. Katz 29-Jan-1984 
Add DT$_NI to the table BUS. TYPE. 
V03-004 WHM0001 Bill Matthews 16-Jan-1984 
_ Change IDBSB_VECTOR to IDB$B_COMBO_VECTOR. 


System Dump Analyzer 
Abstract 


111 
Program description sn ture® "SSEP=1986 OS:SB:7h EEDAYSACHSEVTcE mans: «=| P89% 


v03-003 Tmk0001 19-Nov-1983 
ange DT$ unait’ S “ote DENA in the table SCOM. TYPE and 
cod T$_DECUA to the same table. 


v03-002 powoes? Ralph 0. Weber 10-0CT-1983 

gence Ll diepleye for latest and greesest 1/0 database 
roraes on. Add support for SHOW DEVICE/ADDR <expr>, where 
expression is a UCB address. 


V03-001 KTA3041 Kerbey T. Altmann 26-Apr-1983 
Fix for cluster names. 


Oye Display device data structures _™ 1 mi eh 93:98:37 AX/VMS Mac 


04- e 
declarations ~SEP-1984 E = wae 


ro 
SDA.SRCIJDEVICE.MAR; 1 


} 9 -sbttl declarations 
! § 5 symbol defintions 
0 104 gedpdet ; Adapter Control Block (ADP) 

105 Saaqbdef 3; ACP queue header block (AQB) 
1 § $cadbdef ; Class Driver Data Block (CDDB) 
1 $cdrodef ; Class Driver Request Packet (CDRP) 
108 $Scrbdef ; channel request block (CRB) 

0 109 cdef ; device class/type definitions 

0 110 $ddbdef 5 geyice data block (DDB) 

$% 111 $ddtdef 3; Or yer dispatch table (DDT) 

\\6 devdef 3; Device characteristics definitions 
4 11 $dptdef :; Driver prologue table (DPT) 

000 114 $dyndef ; Dynamic storage type definitions 
0000 115 Sidbdef : interrupt dispatch block (IDB) 
0000 118 Siodef : 1/0 function codes 
0000 11 Sirpdef ; 1/0 request package (IRP) 

44 118 $Smscodef 3; Mass Storage Control Protocol (MSCP) 

000 119 Sorbdef : Object’s R gnts Block (ORB) 

0000 120 $pbdef 3 path block (PB) 

0000 121 $pcbdef 3; Process control block (PCB) 
0000 1 § sbdef 3; System block (SB) 

0000 1 $tpadef ; TPARSE definitions 

0000 124 $ttyucbdef 3; terminal UCB definitions 
0000 125 ucbdef 3 unit control block (UCB) 
0000 126 $vcbdef ; Volume control block (VCB) 
0000 127 Svecdef 3; interrupt transfer vector (in IDB) 
0000 128 

0000 129; 

0000 1350 ; definition of requested device name storage fields 

4 1 1; (using storage based at parsed_devnam) 

44 1 § $defini pdvnm 

st 134 $def pdvnm_t_node «blkb 16 3; node name 
001 135 S$def pdvnm_t_ddc eblkb 16 ; device & controller 
00 1 $ $def pdvnm_w_unit eblkw 1 3; unit number 

0 137 Sdef pdvnm_b_nodesz .blkb 1 ; size of real node name 

0 138 ; (use by get_ddb) 

4404 CN 139 -blkb 1 
00000024 4 140 pdvnm_k_length =. 3; size of this structure 
024 141 $defend pdvnm 
S128 
re: : definition of flags bits stored in r8 by display_device 
0 14 <one_unit,,m>, - ; a specific unit was specified 
4 13 <alt_path,,m>, - ; traversing the alternate DDB chain 
44 133 <fnd_unit. .m>, - ; found at least one unit 


i 
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000000CC 


00000060 
00000071 


00000085 
000000F9 


000001C5 


00000289 


00000331 
000000A8 


0000041D 
00000439 
00000471 
000004E1 
00000551 


00000575 
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cddb_2p: 
parsed_devnam: 


1986 3:83:77 USDANSRCIEVE CE Manet 


med 


-sbttl storage definitions 


-psect sdadata,noexe,wrt 
b$k_lcl_disk_length 


ucb size =u 
-iif gt <ucb§ 
sb: -blkb 
nodnam_2p: 
-bLkb 
ddb: »blkb 
ddb_2p: .blkb 
ucb: -bLkb 
irp: bl kb 
cdrp: -blkb 
cdrp_length=cdrp 
veb: «bl kb 
aqb: eblkb 
dpt: eblkb 
cddb: .blkb 


-blkb 


flag_2nd_cddb: 
word 0 


queue_notempty: 
byte 0 


storage definitions 


p.cddb+4-Gcb_size>, ucb_size = ucb$l_2p_cddb+4 


sb$k_ length 
sb$s_nodename+1 


ddb$k_Length 
ddb$k_length 


ucb_size 


irp$c_length 
cdrp$c_cd_len-cdrp$l 


. 
° 


System block (SB) 


; device data block (DDB) 
; secondary device data block (DDB) 


; unit control block (UCB) 


all the interesting stuff 


; 1/0 request package (IRP) 


oqfl ass Driver Request Package (CDRP 


i . oy 
$c_cd_Ten=cdrp$l_ioqfl ; Total length of cdrp including negative of 


vcb$c_length 
aqb$c_length 
dpt$c_length 
cddb$k_length 
-blkb cddb$k_length ; 


pdvnm_k_length 


Volume control block (VCB) 


; ACP queue header block (AQB) 
; Driver prologue table (DPT) 
; Class driver data block (CDDB) 


Secondary CDDB 


:; flag to tell us if the address coming in is the 
; primary or secondary cddb in routine, show_cddb 


; if 1 means item in an io queue to be displayed 
f 0 the queue is empty 


-psect device,exe,nowrt, long 


default displacement, long 


<o 
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-sbttl read-only data definitions 


read-only data definitions 


pb_status: 
table pb$v_,<tim> 


| 


1 pb_state: 

1 table pb$c_,<CLOSED,ST_SENT,ST_REC,OPEN> 

: pb_rstate: 

: table pb$c_,<UNINIT,DISAB,ENAB> 

5 b_rport_type: 

3 Nip fable pb$c_,<C1780,HSC,KL10,CINT,NI,PS> 

9 ddb_acpclass: 

: table ddb$k_,<PACK,CART,SLOW, TAPE> 

B unit status: 

B table ucb$v_,<tim,int,erlogip,cancel ,online,power,timout,- 

B inttype,bsy,mounting,deadmo,valid,unload,template,- 

B mntverip,wrongvol,deleteucb. lcl_valid, supmvmsg,- 
mntverpnd> 


0 
88 
0 
0 
0 
0 
0 
00 
00 
00 
00 
00 
00 
00 
01 
01 
01 
01 
01 
i] 
0 
0 
: 


device_char: 
table dev$v_,<rec,ccl,trm,dir,sdi,sqd,spl,opr,rct,net,fod,- 
dua,sir,gen,avl,mnt,mbx,dmt,elg,all,for,swl,idv,odv,- 


rnd,rtm,rck,wek> 
device_char_2: 
Te dev$v_,<clu,det.rtt,cdp,2p,mscp,ssm,srv,red,nnm> 
device_class: 
addr_table dc$_,.<- 


<disk,disk_type>,- 
<tape,tape_type>,- 
<scom,scom_type>,- 
<card,card_type>,- 
<term,term_type>,- 

<lp,lp ty e>,- 

<worksfa on,workstation_type>,- 
<realtime,realtime_type>,- 
<bus ,bus_type>,- 

<mai (box>mailbox_type>.- 
<journal,journal_type>,- 
smisc .misc_type>= 


disk_type: 
oe RKO7,RPO4,RPOS,RPO6,RMO3,RPO7,RPO7HT,RLO1,RLO2,= 

M80, TUS Rhos RX01,ML11,RBO2, RBBO,RABO, RAS), RAGO,- 

rh he tas tush tatetssetaet Maha 


ble 
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4 28 tape_type: 

4 table dt$_,<TE16,TU45,TU77,1S11,TU78, TA78, TU80, TU81, TA81, TK50> 

¢ SCO. TYP ble dt$_.<DMC11,DMR11,xk_3271.XJ_2780,NW.X25.NV_X29.S8_1SB11 
aove ° ’ e ° rs 

4 SX MUXD00 DAPI par s2 XV $377 C1,NI,DEUNA, YR X25, YO X25,- 

48 YP-ADCCP, YQ_3271,YR_DDCMP,YS_SDLC,Uk_KTC32,DEQNA,DMV11,DELUA> 

54 card_type: 

28 table dt$_,<CR11> 

22 term. tye ble — dt$..<TTYUNKN, VTOS.FT1,F12,F 13.616, FTS.FT6,F17.F18,LAX 

55 LASB, LAZO. VISE.VES ,Vt55,f0_BTS, TEK4O1X,VT100,VK100,-. 

55 V1173,LA34.LA38,LA12.LA24.LQPO2,VT101,V1102,VT105,VT125,= 

33 VT131,VT132,D211,D232,D2730,DMZ2,DHV , DHU> 

69 lp_type: 

69 table dt$_,<LP11,LA11,LA180> 

68 workstation_type: 

68 table dt$_,<vS100,VvS125,VvS300> 


realtime ae 
fable dt$_,<LPA11,DR780,DR750,DR11W,PCL11R,PCL11T,DR11C,XI_DR11C,- 
xP_PCL11B,1X_IEX11> 


bus_type: 
table dt$_,<C1780,C1750,UQPORT,UDA50,UDA5S0A,LESI, TU81P,RDRX,NI> 
ani tien types 
table dt$_,<MBX,SHRMBX,NULL> 


Journal type: 
table dt$_,<RUJNL,BIJNL,AIJNL,ATJNL,CLUNL> 


OOO 090900 09 09 09 09 09 09 09 INI NI NIN NSN NNO AAA AAO 
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misc_type: 
table dt$_,<DN11> 
vceb_disk status: é 
Fable vcb$v_.<write_if,write_sm,homblkbad, idxhdrbad,noalloc,- 


extfid,group,System> 


vcb_disk_status2: 
fable vcb$v_,<writethru,nocache,mountver,erase,nohighwater> 


vcb_tape_status: 
fable vcb$v_.<partfile,logiceovs,waimouvol ,wairewind,waiusrlbl,- 
cancelio,mustclose,nowrite> 


vcb$v_,<ovrexp,ovracc,ovrlbl ovrsetid, intchg,ebcdic ,novol2,- 
starfile,enusereot,blank, init,noauto,ovrvolo> 


vcb_journal_char: 
table vcb$v_,<jnl_disk,jnl_tape, jnl_tmpfi> 
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: 15 cddb_status: 
9 table 


cddb$v_,<snglstrm, impend initing. reconnect .cesynch.pol ling,- 
re) 


1 

3 1? alcls_Set,noconn,rstrtwait,quor st,dapbsy,2pbsy> 

99 15 iain 

99 0 able mscp$v_,<cf_576,cf_shadw.cf_mlths,cf_this,cf_other,cf_misc,- 
a 1 cf_attn,cf_replc> 

9D : cdrp_dutuf lags: 

4 : table cdrp$v_,<cand,canio,erlip,perm,hirt, ivemd> 

iy § request_status: 

Al table irp$v_,<bufio,func,pagio,complx,virtual,chained,swapio,- 

pat 8 diagbuf physio, termio,mbxio,extend, filacp,mvirp> 
0A88 0 io function: 
0A88 1 table io$_,<nop,unload,seek,recal ,erasetape,packack,spacerecord,=- 
0A88 3 writecheck,writepblk,readpblk,available,dse, setchar,sensechar,- 
QA88 3 writemark,wrttmkr,writelb k,read blk, rewindoff,setmode,rewind,- 
0A88 34 skipfile,skiprecord,sensemode,writeof,writevblk,readvblk,- 
page 32 access,create,deaccess,delete,modify,acpcontrol> 

0898 338 acp_status: 

$895 $35 table aqb$v_,<unique,defclass,defsys,creating> 
0BCO 309 aqb_acptype: : 

0BCO 41 table aqb$k_,<undefined,f1lv1,fllv2.mta,net,rem, jnl> 

0c00 305 - 
0c0O §83=— 34 


sent 0 eis ev ce data structures 19-60-1388 O48 30 


ddr -- display UCB, etc. g 5=-SEP-19 
-sbttl display_devbyaddr -- display UCB, etc. given its address 


ODFC 

57 QQOOOOF9'EF 9€ 
52. 1C_AC =O 00 

136C = 30 

06 50 34 

OA A? 10 1 

4— 13 

1¢C AC OD 

006D_ =—‘311 


56 00000071"EF 9 


96 50 34 
OA A6 806 1 
90 


12 

5B OO0000000'EF 9 
8 2 E9 

OA AB 0760 BF BI 
DA 12 


10 38 A? «OOOESCtCé#é€’ +” 
50 44 AB 9A 


9p 13 
45 AB4O 4 90 
“oe Ff 
44 AB O94 
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display_devbyaddr 


This routine takes the address value in TPASL ety hd e 


AX/VMS Macro v04-00 
SDA.SRCIDEVICE.MAR;1 


attem : 7 use it as a UCB address, and do a SHOW DEV 
for t UCB. This is the primary support routine for 


the SHOW DEVICE/ADDR command. 


Inputs: 


AP = pointer to TPARSE block 


Outputs: 


The i/o data structures for that device are shown. 


enable lsb 
entry thd oy devbyaddr, 


2,7°3,r4,r5,r6, 7, r8,r8,r10,r11> 


subhd <I/0 data structures> 
cb, r 
movl tpasl \ femter tap? r2 


bsbw get_ 
blbc ro, 


pushl it ae 


-9008 
cmpb #dynSc_ ucb, ucb$b_type(r7) 


type 1,<!XL is not the address of a utes 
999$ ; then exit 


; get local UCB home 

; get supposed UCB address 

; pull UCB to Local memory 
error, exit 

is it really a UCB? 

; brench if peel ty a UCB 

else, output a error 


t local DDB home 


e 
tr men aycbst ddb(r7), (r6), #ddb$k length ; ie the DDB 


Lbc quit now, if error 
cmpb aayn$c_ ddb, ddb$b_type(ré) : is this a 0DB? 
bneq ; branch if not a DDB 
movab sb, rii ;. get local SB home 
trymem addb$t sb(r6), (r11), #sb$k_length ; copy the SB 
blbc rd, $ : if error, exit 
cmpw sbad type + be gf pberdynsc.. scs>, - ; is this banlis a SB? 

3 


bbc SdevSv_fod, ucb$l_devchar(r7), - 


poupet i08 nodename(ri1), r0 
movb #*a/$/, 

sbst ~nodename+1 (r11)Cr0) 
incb bse. nodename(r11) 


clrb sb$t_nodename(r11) 


; branch if no really a SB 


3 brench if this device not 
file oriented? 

else, get node name size 

branch if no node name 

add ‘'$"' to node name 


; increase size of node name 
; non-fod devices have no node 


<Vv 
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vO4~060 display. devbyaddr -- display UCB, etc. g g73F P=19 38 63: $37 SDA.SRCIDE VICE. MAR; 1 ° (3) vO. 
CD 
00 pp CD 4 298 30$: pusht #0 ; setup no Stage flags iongword 
44 8 F QCD 4 ¢ pushab sb$t_nodename(r11) ; setup nege na 
D OCD 4 pushl 3 setup VA 
7E 6 D OCD9 4 $ movg ré, =<sp) 3 setup tocol DDB and UCB 
1c7B'CF O05 FB 34) i calls #5, w*show_ucb ; display this UCB 
04 tad 209 999$: ret 
pces 410 ; 
OCE 411 disable Lsb 
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-sbttl display_device -- display i/o data structures 


display_device 


This routine displays all i/o data structures related 
to a specified generic device name. 


Inputs: 
AP = pointer to TPARSE block 
Outputs: 
The i/o data structures for that device are shown. 


-enabl tsb 
display_device:: 
OFFC sword “m<r2,r3,r4,r5,r6,r7,r8,r9,r10,r11> 
58 04 clrl r8 ; init internal veage 
0084 30 bsbw parse_device 3; parse the device into name and unit 


subhd <I/0 data structures> 
pppune flag_v_one_unit eq 0 


Pe oe ae et ot ot at ot ot ot MMM UMUMMUUUUMUAUMUAUAUAUeAUeeUeUMUeeeeUtUtUteeteUteteeteeeeeeS 
PRO APAPAOAOOUUIMUVIUNINUUIU ES BBB BEE EE WWW IIiRononononononononong 2 2 
OOD NAN EWR O OONAUE WN O DONOAU EWN 0 ODNAUE WN 2 OODNAUEWN—OODNOULW 


05 58 bs , : if explicit unit, skip ddb info 
ODFD'CF 6C callg (ap),w*show_ddbs ; show DDB summary 
; init jiodb scan 
5B D4 108: clrl rij ; make get_ddb initialize 
; loop over all DDBs and both paths 
0202 30 208: sbw get_ddb 3 get the next DDB 
3c 50 9 blbc r0,45$ ; leave when done 
57 Q00000F9'EF E movab ucb, r7 ; address UCB in local storage 
58 02 CA bicl aitag_m_alt path r8 3 assume not alternate path, yet 
52 04 A6 OD D mov | gaps “ucb(r8), ré ; Address of first UCB 
98 1 D beql $ ; Branch if none 
1270 23 D bsbw get_ucb ; Read first UCB 
1450 € D blbs r : If got ponetsine go process it 
52 40 A6 09 D 30$: movl gdbSl_dp_ucb(r6), r2 : try Looking at the alternate path 
DE 1 D beql ; branch if nothing there 
1264 23 D bsbw get_uce ; read first alternate pathed UCB 
F4 38 E D blbc r $ ; if nothing there, skip this DDB 
58 0 C3 D bisl tla malt peth. r8 3; now doing the alternate path 
04 48 D D tstl gdbs “ucb(rb 3 was anything found on primary path? 
3 12 4 bneq 60$ : if so, skip the controller info 
D ; eteplay controller information if appropriate 
D assume ag_v_one_unit eq 0 
2D 8 E8 OD 40$: blbs r8, 608 3 
pp D pushl rr ; 
44 AB F QD pushab sb$t_nodename(r11) ; address of nodename 
7E 56 7D OD movg r6,-Tsp) ; address of DDB,UCB blocks 


if explicit unit, skip controler info 
SVA of DDB 


ge 


eRe 
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v04-060 disp 


L 
l 


ispla 
isplay_device -- display Vo. data struc SEP-1984 SDA.SRCIDEVICE.MAR; 1 
OFE1'CF FB QOD3 47 calls #3,w*show_controller ; Display controller info 
3 11 + cn brb "3 a 5 soeanter loop 
>? crs ; Intermediate branch to final cleanup/error processing. 
3A —SOisd1 + of 45$: brb 100$ 
D44 13 ; loop over all UCBs on a either DDB chain 
09 58 O11 €1 ota $78 50$: bbe # 4a g.v_alt_path, r8, - ; branch if using primary chain 
52 O0A4 C7 0 Spc8 480 mov ucb$l_dp_link(r7), r2 ; else, addr. By en UCB on sec. chain 
1 1 R008 481 beql g 3; branch if n re 
6 11 OD4F 4 ¢ brb $ ; else, continue. processing 
52 30 A7 0 D51 483 53$: movl gbsl_ Link(r7), r2 ; address of next A in primary chain 
DSS) «= « 484 beql § 3 branch if no mo 
lege 30 OD57 485 55$: bsbw get -ysb ; Get local copy + of the UCB 
F 50 €9 fs 4 $ blbc r0, 30$ ; skip rest if chain broken 
D5p 4 assume flag ¥ one_unit eq 0 
OA 58 «ED 3028 ? 3 blbc r8, 708 ; branch if displaying all units 
00000571 "EF 54 A7 B1 0D6 490 60$: cmpw ucb$w_unit(r7), check if request unit 
0068 491 arsed ~devnam+pdvnm. w _unit 
DA 12 04 138 bneq Bos 3; skip if not 
58 DD QD6A 494 70$: pushl r8 : flags longword 
44 AB OF OD6C 495 pushab sb$t_nodename(ri11) : address of node name 
52 D OD6F 49 pushl r2 ; actual address of UCB 
7E 56 D OD71 49 movq rS.—(sp) : address of DDB,UCB blocks 
1C7B'CF OS FB OD74 498 calls #5,w*show 3 etaptey current U uCcB 
58 04 C8 OD79 499 bisl i lag. m_ tid. Yt, r8 ; mark at least 1 UCB was displayed 
a | pore ano brb ; loop thru all UCB's 
58 9 EO poze 208 100$: bbs #fla pind enit, - ; branch if at least 1 ucb displayed 
50 0000°8F 3C aDb2 abe my pt #55$_nosuchdev,r0 ; signal ‘'no such device’ 
signa 
0D95 206 110$: otetus success ; exit to tparse w/success 
«Be et 
OD9D 509 -dsabl lsb 


vice data sttueyures 
ce == parse dev 


E 
68 
AB 
AB 
C 
4 
4 
7 
9 
9 
9 
9 
9 
£ 
D 
A 
0 
1 
1 
8 
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r>o —BMoOf PF —OCUMNUoNnoe 
PDD PPPS Be Be BS BB EE ANNAN NWI WINIIPIPPPOPONPINIPINNI SS OO 


WIR OOO NA NEA OS OOD NAME WIN  O OD NAME WN OOD NAUE WO OONOUS Win 


Wwo— 


28 
90 
D 
C 
C 
Dd 
1 
8 
1 
9 
1 
& 
A 
C 
1 
90 
8 
D 
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SEP= SDA.SRCIDEVICE.MAR; 1 
-sbttl parse_device -- parse device name into name and unit number 


parse the device name into name and unit number 
Inputs: 


r8 = longword of show command status flags 

tpa$l_tokencnt(ap) = Descriptor of device name 

parsed_devnam = address of a work area into which parsed fragments 
of the device name are stored 


Outputs: 


if x equals parsed_devnam then: 
pdvnm_t_node(x) = ASCIC string for parsed node name 
pdvnm_t_ddc(x) = ASCIC string for parsed device and controller 
pdvnm_s_unit(x) = converted unit number 
(null “strings ingly item missing from input) 

flag_m_one_unit in r8, set if unit number specified 

ré-r7 and F9-rl11 are destroyed. 


parse_device: 
movab parsed_devnam, 
clrl pdvna_t_node(r 


a 
>. 


; get working area base address 
3 null the two string values 


; zero unit number 


movg tpasl tokencnt(ap), r6 ; get descriptor of input string 
locc #*a/$/7, c6, (r 3 scan name for a ‘'S' 
beql $ ; branch if none 
subl r?7, rl, 9 3; compute size of node name 
move r9, (r?), = 3; copy node name string to work area 
+ Sage t_node+1(r11) 
movb 9, pdvim_t_node(ri1) ; store node name size fae 
incl r9 ; get size of node name incl. ‘S$ 
subl r9, r6 ; adjust input string descriptor to 
addl r9, 7 3 remove node name section 
10$: tstl r : paything left to work with? 
beql 90$ ; branch if no characters left 
208: subb3 #*a/0/, (r7), r0 ; convert next character to a 
blss os : numeric value and branch to 
ea b £8 ay : 508 if not a numeric digit 
ru 
eae Ate pdvnm_w_unit(ri11) ; scale unit munver by ten 
addw r0, pdvnm_w_unit(ri1) ; and add new digit 
bisl #tlag_m_one “unit, r 3; set the unit number found flag 
brb 66$ 3; go do next digit 
50$: assume flag v.one_unit eq 0 


. ; branch if unit number already found 
movzbl pdvnm_t_ddc(r11), r0 3; get number of characters in dev/ctrl 
movb tr), = 3; move new character into place 
pdvna t_ddc+1(r11)Cr0) 

7" 


addb3 r0, pdvnm_t_ddc(ri1) ; store new character count 
66$: ncl r 3; move string pointer 
sobgtr r6, 20% 3: reduce character count and branch 
908 . ; if characters still left to process 
: rs 
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show ddbs -- display device data blocks g: $3398: 75 DEVE on ( 


SEP=1984 SDA.SRCIDEVICE.MAR; 1 


-address 6, 10$ 
108: string <!_!XL 


!10<!AC!AC!> 16AD! +! + !10AC> 


§ : -sbttl show_ddbs -- display device data blocks (DDBs) 
71: 
4 : show_ddbs 
7%: This rout ine displays all active DDB's associated 
4 ; with a specified generic device name. 
if 3 Inputs: 
7 ; AP = pointer to TPARSE block 
a -save 
00000 -psect Literals 
6 found_dpt: 
000008DA'00000008' 0 address 8, 10% 
0 10$: string <!_!XL 'T0<!AC!AC!> '6AD! +!4 'T10AC 'XL 'XW> 
89 no_dpt: 
oo 
9 
9 


MMMMMMMMMMMNooOCOCS COCVOVVMB@BOOODOUUTVTCVCTCVCVTVTCVTVTTCCOS 
COU FE SWNIN SPOT TRH Ho So Ve BOO COCO NTT 


Sow Oe RNOSCwuSCw FMM OWP DOWNS WHO O FCS MOM PNINININVITOVVVVVVCVCUCV"TC0"0 


et -restore ’ 
show_ddbs: 
OFFC eword) = “m<r2,r3.74.r5,76,77,r8,79,r10,r11> 
0 ski age 
0 print Beef ttt ppp List> 
0 or iat Oot i atate eceeecon > 
s 
6 oriat 0,<!_ Address Controller ACP Driver DPT DPT size 
0 print 0,<!_ eecececeeo 8§&58—eeeeeeeeen weer a ee ee “<-——- seececececee 
0 ski 1 
5B 4 clr rij ; make get_ddb initialize 
0 30 10$: bsbw get_ddb find next DDB 
¢ 0 9 blbc r0, 90$ end of DDB List 
54 00000915'EF D movg no_dpt, r4 assume no DPT will be found 
5A 10 bsbb find q t locate dpt; r7 = local dpt: r8 = address 
blbc r0 branch if not foun 


movq found_d 


0D 50 
54 i ae SH D gt. r4 show that DPT was found 
—E 08 A? movzwl dpt$w_size(r7), -(sp) DPT 


length o 


MEANS OD NA UNE WIN 2 9 OO NAME WIN = © OD NAME WN 0 OD NOAUNE WO OONOUS UN" 00 


oan PERAEAPAAAAAAAAAA A AMIN 
VRrorow > > moomoo au ooooooooooooooooo 


3C_ (OE 
DD OE pushl fr address of DPT 
24 A6 F cg 17$: pushal ddb$t_drvname(r6) address of driver name 
7E C QE clrq -(sp) allocate 2 longwords for ACP name 
ge DF OE7 pushal (sp 
E D4 0OE7 clrl -(sp) ; assume no ACP name for this DDB 
50 10 A6- FFOOO000 8F CB e? bicl3 PD ae eee'y Diy 0 ; obtain ACP name for this DOB 
acpd(r6), r 
8 13. 0E7 beql 368 _ ; branch if no ACP name in this DDB 
08 AE D E mov l r0, 8(sp) 3; put name in the working string 
7 6 OD E mov l #6, ae 3; set length 9 ACP name 
08 af 6030 58 8F OD E mov | #*a'xQP’, 11(sp) ; assume ACP is really an XQP 
5 13146 BF OD E capl #*a'Fil’, r0 : is it an XQP? 


81 fo 


OB AE 


8 
00504341 eF 
14 A6 
ue 8 

5 


98 


Display device data structures 


show.ddbs -=- display device data blocks 


09 
DF 


MmMmmmemnrcrcriecrny 


30$ 
#*a 


"ACP", 11(sp) 


og $t_name(r6) 


r9 
108 


t_fodename(r11) 
(r5) 


"SSEp=198¢ 05:88:17 USdarsacloevickcmanss =| "#9" 


; branch if its an xQP 

; else, change it to an ACP 

; generic device name hy controller 
; node name 

actual _*rereee of DDB 


| Coe a eft out of DDBs 


; then return 
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€8 2 3 
fay ‘ : pegrenems to locate the DPT corresponding to the current 
EB? : : 
3¢ EBS i Hieddots wencr3..r3,04,059 
shr “mn “ r3.r4yer 
57 oo00eso'es Se oFBo Set Soveb dott 
EC tg trymem @ aioc$ol_ dptlist,dptSl_flink(r7) ; set address of first DPT 
2F 20 E9 OED 64 blbc 0 : branch if error 
58 g DO OED 644 10$ mov l ats, flink(r7),r8 ; skip to next DPT 
00000000‘ EF 3 » soe oe? cept iot$gl_ dptlist : ae en to }stheed 
e 3 branc en 
EDF 85 a (r ),(r7) ,@dpt$c_Llength ; read the Slee ta dpt 
13 30 7H EEC o48 Loc 90S : one if error 
50 204A A OQEEF 4 movzbl 4 t$t_name(r7),r An nerh fi dpt driver name 
25 AG 21 AZ °° 29 2 920 cmpc rb dptst_ aeekee, ddbst sane 
D is EF 651 bneq $ ; branch ak rt "aotal yet 
50 0 $' ta | 636 50$: feyt gi ,r0 3; success 
r 
6 D4 FOO 654 80S: clrt = 0 ; not found 
3C BA OFO2 655 90S: popr = #*m<r2,73,74,r5> 
0S OFO4 656 rs 


dD has a bt eplay device data structures 
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V get_dd ( 


se locate the next DOB in the 1/ Sesep-1obe BiSocty Lena Mee ABET YOK 00, 


: iH -sbttl get_ddb -- locate the next DDB in the 1/0 database 
F ; 
: ? 13 get_ddb 
F ? : : a routine locates the next DDB in the I/0 database. All 
F 4; available system blocks are searched. However, if a node name 
F 665 ; is specified, only the system block whose node name matches 
: 008 ; actually has DDBs returned. 
F 5 bes ; Inputs 
F 2 rei ; r6- addr of DOB, local storage 
FOS) = 671 ; rill - addr of SB, local storage 
OF : or¢ ; (zero means initialize scan) 
BB} GPE | Outnuts 
OFOS O78 : r0 - status 
OFOS 677 ; r6 - addr of DDB, local storage 
OFOS 678; r9 - SYS VA of DD 
OFOS 679 ; rii- addr of SB, local storage 
OFOS 680 ; 
Oros cbs 
0708 $88 get_ddb: 
5B 05 OFOS one tstl ri 3; must we initialize? 
64 13 a oe? beql 1500$ : branch if must initialize 
59 66 00 Ore $8 108: mov ddb$l_Link(r6),r9 3; skip to next DDB 
61 1 FOC 688 beql 100$ :; if end of list, go try next SB 
OFOE 689 getmem (r9), (r6), - 3; read entire DDB 
FOE 690 #ddb$c_Length 
4A 50 9 OFIF 691 blbc r0, ; skip if cannot read 
57 00000551°EF E rss 69 movab parsed_devnam, r7 3; get parsed device name data base addr. 
51 10A7 9A OF 69 movzbl dvnm_t_dde(r?), rl 3; was generic device specified? 
—E 13 oF D 694 beql :; branch if not 
14 A6 1 91 OF2F 695 cmpb ri, ddb$t_name(r6) : Is device name big enough? 
4 1A OF ; 696 bgtr 10 3; branch if not 
15 A611 A7 1 29 : H e44 capes Cle pdvnat odssttr?). - 
name+T(r 
~. F38 344 bneq 198 > ; loop until end of List 
44 AB 22 A7 9Y F3D 0 50S: movb pdvnm_b_nodesz(r7), - ; assume that the node name is 
res 701 sb$t_nodename(r11) 3; required for this 
OOOO00000'EF 34 AB 01 ee f ¢ capl odbst_spirs). = ; is this the local node? 
1D 1 FA = 704 bneq ; “. z no, node name is required 
51 04 A6 OD F4 705 movl b$l_ucb(r6), ri ; for the local node, we want to 
06 «#1 F5 7 $ bneq : show a node name {f and only if 
51 40 A6 OD F 7 movl b$l_dp_ucb(r6), r1 ; this is a file oriented device 
7. 3 F 7 3 beql $ :; if we cannot tell, show the node name 
F 709 538: etmem ucb$l_devchar(r1) : else test for a file oriented device 
03 51 +E 50 F6 iy bs #dev$v_fod, ri, 70$ 3 using device characteristics flag 
44 AB 4 OF6 71 clrb sb$t_nodename(r11) : if not fod, vanish node name 
50 01 0 oP ay #08: nov #1,r0 3 set success 
: rs 
52 11 OF6D 7141 bas: brb 500$ ; branch assist 


vO4-060 


50 
5A 98 
00000000' EF Hs 


be 50 
4 AB 
66 

5A 00000551'EF 
50 44 AB 

gf 

45 AB4O 4 

22 AA 50 (O01 

55 6A 

90 

50 5 

4 

45 AB 01 AA 5 
B1 

FF48 

5B 00000000'EF 
56 00000071'EF 


8E 


Displa 
get ddb 
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LN 
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SrSEp=1986 05:48:77 


device data structures 
-- locate the next DOB in the I/ 
F 15 
F 16; 
! 3; move to next SB 
1 o 
100$: clrl r0 
mov sb$l_flink(r11) 
cmpt £10, “scs$gq_confi 
eql 90 
getmem Ud EAR Lae - 
en 
blbc 6 908 . 


SNMNOOUS mood f-anN 


Se Se ee ee ee ee | 


WN O OONAUE WN 0 OO NOU EWI 0 DOONAN EWI" OOONO 
a 
a 
cs 
Ww 


r 
movl  sb$L_ddb(r11),- 
ddbSi_ Link (ré) 
parsed_devnam, r10 
Fags mecenenetel ty, r0 
120$ 


#*a/$/, - 

sb$t_nodename+1(r11)Cr0J 
nodesz(r10) ; store new node name size 
up requested node name Lenght 


7 #1, 70, pdvnm_b 

C 120$: movzbl p yom.t_node (FiO) 

F eql $ 

1 cmpb r5, r0 

4 bneq 106s 

6 cmpc3 or 5, 

C 4 pdvnm_t_node+1(r1 

C 4 sb$t_nodename+1(r 

C 4 bneq 100$ 

E 435 1308: brw 10$ 

| i 

! : ; initialize 1/0 database scan 

1 48° 

1 49 500$: movab_ sb, ri 

? : aoves >. .f0 o 
etmem ascs con - 

F 5 ° sb$t. Fetnk crits 

F 5 brb 100$ 


r10 
g 


. 3 


0, - 
115 


AX/VMS Macro VO 
SDA.SRCIDEVICE.MAR; 


= 
2 

[=] 

o 


Set for failure 
Get next block 
Reached end of queue? 


es 
BF ek up system block 
exit if broken 


set address of first DDB 
get parsed device name data base 
et size of node name 
ranch if no node name 
append ‘’$'' to the node name 


pick 
there is none, ge scan DDB chain 
do Length match? 

no, this cannot be it 

do names match? 


no, this cannot be it 
go scan the DDB chain 


pickup local SB storage address 
pickup local DDB storage address 
initialize next SB pointer 


Link to next SB 


addr. 
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4? ‘ ; -sbttl show controller, Display controller information 
FEI : 
42 4 8 : show_controller 
FEI £60 : Display all information related to the controller 
4% fe ; device associated with each generic device name. 
HH HEE tous 
FEY 765: 4(ap) = Address of DDB in Local storage 
FE1 £66 : Siap) = Address of UCB in local storage 
FE1 767 ; 2(ap)= Address of node name in local storage 
FE1 £08 3 16(ap)= SVA of DDB 
FE 6 3 
fey 
FE1 ore show_controller: 
52. 04 AC oor FES oe nee ta t add f DDB,UCB 
mov ap).r 3 address ‘ 
5 00000000°EF 9E OFEZ 775 eavab buttes.ré ” - 
OrEE ads ; begin with controller heading 
acre oe te page 
i a +4 Eee reo pusses sg7ct name (re) ; generic controller name 
OFFB ree print 2 <fontrol ler: 'AC!AC> 
0C DD 1008 78 pusht #2 
6—€ 14 A2 80 100A 784 addb ddb$t_name(r2), (sp) 
6— Oc BC 80 1905 re addb ai2(ap), (sp) 
101 786 print 1,<!#-> 
out A tA skip 1 
OOOOOO00'EF 34 A2 91 1098 789 cmpb ddb$l_sb(r2), scs$ga_localsb ; skip this stuff if 
08 13 1030 790 beql oe s 3; this is the local SB 
34 A2 DD 103 791 pushl ddb$T_sb(r2) ; else, display SB and 
17D8'CF O01 FB 1932 ay calls #1, w*show_system_block : related information 
103A 794 skip_sb: 
103A 795 getmem @16(ap), (r4), #ddb$k_length 3; copy DDB to local mem. 
104 79 retiferr 
1 $6 79 ensure 6 
10 AC DD 106 o pushl 16(ap) 
1 9 print 1,<!_!_--= Device Data Block (DDB) !XL ---> 
107 00 skip 1 
1 01 print_columns - 
1081 8 buffer, 16(ap), - 
1081 ddb_column_1, ddb_column_2, ddb_column_3 
i a 
10AC $ getmem @ucb$l_crb(r3), (r4), Mcrb$k_length 3; get primary CRB 
1 3 retiferr 
10C 8 ensure 8 
24 AS DD 10DA pushl ycb$l_crb(r3) 
1908 ? print Ai. --- Primary Channel Request Block (CRB) !XL ---> 
10EA 1 skip 1 


v0 


vic 
4-000 


Q00000578"EF 40 A3 
50 24 A3 24 

57 20 AS 

33 

009 

57 

57 

QOOO0000"EF 34 ag 
0080 

57 24 a3 2 


ae 
57 
0088 C3 


Display device data structures 
show_controller, Display controller info 5-SEP-1984 


90 1 1 seve ucb$b_devclass(r3), crb_devclass : 
print_columns - 
buffer, ucb$l_crb(r3), - ; 
crb go umn_1, crb column_2, crb_column_3 
addl\3) #crB$l_intd, ucb$T_crb(r3), r0 
print columns = 
buffer+crb$l_intd, r0, - H 
vec_column_1, vec_column_2, vec_column_3 


C1 


skip 


mov crb$l_link(r4), r7 3 
bneq 10 
sk p.second crb 3 
(r 


> (r4), Mcerb$k_length : 


Wo 
—NMwo 


brw 
10$: getmem 


No Oo 


dD 


3 
print columns - 
buffer, r7, = : 
erb_column.1, grb_colum.e, crb_column_3 
addl2s #crB$l_intd, r 
print_columns = 
buffertcrb$l_intd, r7, - 3 
yec.coluan, 1. vec_column_2, vec_column_3 


co 


skip 


SGb8l_sb(r2), scs$ga_localsb : 


brw displ ayaddt ; 
#<crb$l_intd+vec$l_idb>, - 
ycgstcrbtr ), v7 
r 


OwW—o 
——w— 


getmem 
retiferr 
movl 
getmem 
retiferr 


COON NH HMMM OO WW OOOOWOP AI & nnn 


dO 


BPR EE ERE PWWWWWWIWWIWIWIRORPPOPONNUNININ) 


NAME WN SO OO NAME WIN $$ 0 OD NAME WIN (OOO NAME WN OOONOUS 


el, vf 
(r?), (r4), #idb$Sk_Length : 


DD r7 
Ve<totaces Interrupt Data Block (IDB) !XL 


p 
print_columns - 
buffer, r7, - 
idb_colunn_1, idb_column_2, idb_column_3 


DOO VIWD NP NWP FP UVOOOOMMMND > > S$ LMP OUMVOOOWNnyvVT TWWOw 


WAM AI 


skip 


display_ddt: 
getmem @ucb$l_ddt(r3), (r4), #ddt$k_length : 
retiferr 
ensure 6 
hl ycbFl ddt(r3) 
t Vet t 


DD pus 
prin 
ski 


DS PS COON NNO & SS EW © 


FOO LVIVMMO 


cm ek ed a a — — — —  — — — — 4 2 2s bs 2) >) — 2s > — 4 > 2 — 3 —s 2 > 9s —) 2d —) 9 2 _ 2d 2 2 


POPPIPIPIPINIPYPDPIPINPYARSPININIPINININY 
20000000000 0000 09 00 Go Op G9 00 C9 0D G9 CD Co 


POAAPAOCACOOUW 


CONOULS WN OOo 


print_coluans - 
buffer, ucb$l_ddt(r3), - 


wowwm 
>>— 


SEIN SAGE, MME terre 


Page 
ef 
setup device info. 
output CRB columns 


output VEC columns 


Link to second. CRB 


branch if none 
get secondary CRB 


Secondary Channel Request Block (CRB) !XL <---> 


output CRB columns 


output VEC columns 


is this a local dev.? 


if so, skip IDB etc. 
locate address of 
primary ID 

get that address 


; save IDB address 


copy IDB to local mem. 


<--> 


copy DDT to local mem. 


r_--- Driver Dispatch Table (DDT) !XL --=-> 


0 
0) 
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vO4-000 show.control ler. Display controller info ets §4:98:75 LSD AY SRCIDEVS CE MARST 
1300 Me ddt_column_1, ddt_column_2, ddt_column_3 

7 


12DD 
04 1200 ret 


Display device data eer etiee 


show_controller tables ~$Eb= 1382 84:98:75 SDAVSRCIDEVICE MARS ‘ats (3) 


$ 
action routines 5-SEP- SDA.SRCIDEVICE.MAR; 1 
-sbttl show controller tables & action routines 


The following are all PRINT_COLUMNS action routines for the show 
controller displays. 


_ 
.~J 
m 


Action Routine Inputs: 


; Re value from the COLUMN_LIST gotry 

: R size of value section for this item 

3 R? address of a descriptor for a scratch string in 
; which the FAO converted value is to be returned 
; R11 base address of the local UCB copy 

: Action Routine Outputs: 

: RO status 

; lbs ==> use this entry 

; a1 RS lbc ==> skip this entry 


scratch 
all other registers must be preserved 
FAO control strings, etc. used by the action routines 

.save 


-psect Literals 


vec_fao_datapath: 
string <!UB!AC!AC> 


904 vec_fao_mapreg: 
905 string <!UB(!UB)!AC> 


907 vec_lwae: 
908 eascic / LWAE/ 


30.0 0000000000 00 00 Cn CoCo Co CD CD COCO CODON OD CDCDODCDCOCDCDOCDONCD «6-— 
SOOOCSCOOOOOOO OO OWWOWMODWOWOWOO NNN SIN 
WR 9S OONOAUE WN OOONAUE WN 0 OONOUSWw 


WOOONNNNMMMMMmMMmmMmmMmmMmmmmMmmmmmmmmmmmmmmmmmrrnrn 


45 41 57 4C 20 00° 
05 


vec_locked: 


64 65 6B 63 6F 4C 20 60" eascic / Locked/ 


ddt_return: 


6€ 72 75 74 65 72 83" eascic /return/ 


0000 restore 


: PRINT_COLUMNS tables for DDB display 


ddb_column_1: 
column_list - 
ddb$, 20, 8, 3, <- 
<<Driver name>, t_drvname ac 13,15>, = 
<<ACP ident>,ddb-acpd,0,2 53>, - 


Mmmmmmmmmmmnoooo0-——— 
AUilklWw—OO0Onouw fw Ovo 


POPROPORORONRD a sl OO 


wowowowowowowowowowowoo owow wovwovd 
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12DE 7 <<ACP class>,ddb_acpcls,0>, - 
ee 38 
1S1E Q ddb_column_2: 
131E 4 1 column_list = 
1 1E § ddb$ 15, 8, . # <- 
131— 9 <<Alloc. class>,l_allocls,ub>, - 
131—E 934 <<S$B address>,|_sB,xl>, - 
13S1iE 935 <<UCB address>, T_ucb,xl>, . 
iS1E 69 § > 
TEE SE ceo cotun 
column_3: 
1 ze 335 i coltumn_Llist - 
135E 940 ddb$, 15, 8, 0, <= 
135E 9941 <<DDf address>.l_ddt,xl>, - 
135E ae8 <<CONLINK addr.>,l_conlink,xl_neqg>, - 
135E 8694 <<2p UCB addr.>,(_dp_ucb,x(_neq>, ~ 
135—E 944 > 
139E 945 
133E 946 jeeeeeeee 
139E 947 ddb_acpd: 
52 10 AB FFOOOO00 8F CB 1375 208 bicl3 g srteeueee. ddb$l_acpd(r11), = ; get ACP descriptor 
r 
18 13 13A7 950 beql ddb_no_ac ; branch if no ACP info 
52 52 08 9C 13A9 951 rotl #8, r2,¢ ; make ACP descriptor into 
52 03 CO 13AD 326 addl #3, 6 : an ASCIC string and 
52 OD 1380 95 pushl r2 : push it onto the stack 
3. 2». we i Be Ty mov l sp, r2 ; save ASCIC pointer 
138 95 do_column_entry ac ; display ACP type id 
8E 05 1305 956 tstl (Sp)+ ; cleanup stack 
05 13¢ 957 rs 
13C1 958 ddb_no_acp: 
50 04 13€1 959 clrl r0 
05 13¢3 960 rsb 
13c6 961 
13C4 296 seekekeeeee 
13C4 963 ddb_acpcls: 
52 13 AB 9A 1ece 964 movzbl ddb$b_acpclass(ri1), r2 : get ACP class 
F7 #13 13C8 965 eql _nO_acp ; branch if none 
53. E€CC2 CF Q9E 13CA 966 movab ddb_acpclass, r3 3 get translate table 
00000000 ° GF 19 13CF 6. 967 sb g_krenslate_sdéress ; translate ACP class 
OC 13 1305 968 eql 0$ ; branch if translate failed 
52. 50 00 1307 969 mov rd, ¢ . ; setup translated string 
' DA af do_column_entry ac, jmp :; display translation 
52. 13 AB O9E 1 F3 14) 90$: movab ddb$b_acpclass(r11), r2 ; else, get class address 
: : oh do_column_entry ub, jmp ; just display the value 
13F tf? 8 
1 } ar6 ; PRINT_COLUMNS tables for CRB display 
13F 3f8 
13F 979 crb_column_1: 
13F 9 9 column_list - 
13F 9 crb$, 16, 8, 4, <- 
1370 «9 2 <<Reference count>,w_refc,uw>, - 
13F 9 <<Due time>,crb_timeout,crb$l_duetime>, - 


D 13 
DEVI Display device data structures 16-SEP-1984 01:26:37 rag Mac - 
Mb e560 shen “controller tables action routines g- -SEP- oat §3:98:32 VERCTSEV ech onas 99, ia ( $) 


4 > 


crb_column_2: 
column, list - 
crb$ 
id Dey ‘ veti. 2>, 
<<Tineout rout.>,crb_ Tlaseut, crb$l_toutrout>, - 


Oooooonoov0ono 


13 
12 2 
12 $ 
14 8 
14 9 
14 0 
10 : 
14 i erb_column_3: 
14 4 column_ list - 
14 5 crb$, 16, 8, 0, <= 
14 $ <cAUx. struct. >, L_auxstruc,xlin 
i i <<} taseut Link>: crb_timeout, crbst timelink>, = 
14 ° ie peeeeeeeeeee 
1 crb_timeout: 
00000578'EF 42 8F 91 1480 1 ¢ ” cmpb #dc$_term, - ; terminals have a different 
1488 100 crb_devclass ; timeout scheme 
13° 1488 1004 beql 90$~ : so don't do them 
DS 148A 1005 tstl crb$l_toutrout(r11) ; also don't bother unless 
oc 13° 148D 1006 beql 90$ ; a time out routine specified 
52 B CO 148F 1007 addl ell, v2 3 get datum address 
6 1038 443 908 do. column entry xl, jmp 3 and d}splay it " 
: r r : 
Be ian 1090 rab = Toca: Roomate 
1296 1013 
.$av 
00000878 181 “psect pes a wrt 
0578 1014 crb_devclass 
00000000 0578 1015 tong 
0000149E 131§ res me, 
1296 1018 
149E 1019 ; PRINT_COLUMNS tables for VEC display 
Rate 
149E + § vec_column_1: 
149E 1 column_ list - 
149E 1024 vec$ 8, 4, 
149E 1025 <<IDB sdivetas” L_ <idb, si>, © 
149E 1 § <<ADP address>,| adp,xl_neg>, 
149E 1 <<Unit start rout.>,( “start xl. neg, - 
120k 1099 : 
14DE 1050 vec_column_2: 
14DE 1031 column_ list - 
14DE 1 § vec$, 16, 4, 
14DE 1 <<Datapath>.vec ‘soreeeth. 0,10,14>, - 
14DE 1034 <<Unit init.>,l-unitinit,x(_neq>, - 
14DE 1035 <<Disc. cau a >, T_unitdisc,xT_neg>, - 
1S3E 1087 , 
00000004 HE ! 3 vec$l sintser = vec$q_dispatch+4 
vec_colum 
151E 1040 cotumn_ list - 
} 
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1S1E 1041 vec$, 16, 8, 0, <- 
1S1E 1 tg <<Map reg.>,vec_mapreg,0,11,13>, - 
ISIE 104 <<Int. service>,l_intser,xl_neqg>, - 
151E 1044 <<Ctrl. init.>,(_Tnitial.xl-neg>, - 
ae 18 
133 1 28 peereerereeee 
1226 1 rt: sites cain Sy 
+f 10 15 104 sbb vec_test_uba ; is this a UNIBUS? 
5 1 C2 1560 1050 subl #<8F16>, sp 3; make scratch space on stack 
5 5 DO 1563 1051 mov l sp r 5 point to string descriptor 
62} pO 1 66 1 3 movil #16, (r2) : build string descriptor 
04 A2 08 A —E 1569 1 movab (re), 4(r2) 
53  _Q0000E "ee 9E 1298 1 ee movab null_ascic, r3 3 assume no LWAE 
07 13 AB > €3.%33 1055 bbc #vecSv_lwae, - : branch if LWAE not on 
157A 1 28 vec$b_datapgth(ri1), 10$ 
QOOOOB6B'EF 9E 157A 105 movab vec_lwae, r ; else, change assumption 
54 _Q0000E21'EF ve 1381 1928 10$: movab null_ascic, r4 3 assume no pathlock 
07 13 AB O07) =«©€1 «1588 =105 bbc #vecSv_pathlock, - ; branch if path not locked 
1388 1369 vec$b_datapath(r11), 20$ 
54  Q0000871'EF 9E& 158D 1061 movab vec_locked, r4 3 else, ye A assumption 
51 13 AB O05 00 EF 1594 1 $6 20$: extzv #vec$v_datapath, - 3; extract data path number 
159A 106 #vec$s_datapath, - 
133A 1968 te vec$b_datapath(r11), r1 
os - 
159A 1066 “etrstr = vec_fao_datapath, - 3; convert everything to 
159A 1067 outbuf = (ra, - ; to a string 
159A 1068 outlen = (r2), - 
159A 198? pl=ri,- 
1890 1071 Fe! oe 
zr 
15B1 1976 do_column entry as 3 put string in column 
5E 18 CO 15BA 107 addl #28+16>, sp 3; cleanup stack 
05 158D 1074 rsb 
13BE 1078 
15BE 1077 ;eeeeeerecere 
15BE 1 4 vec_test_uba: 
50 «(14 DO 15BE 107 mov vec$l_adp(r11), r0 3 get ADP address 
1 13. 15¢C2 1080 beql 90 3; if none, its not a UBA 
15€4 1081 etmem adp$w_adptype(r0) 3; get adapter type 
06 50 €9 15CE 1 ; lbc ° : if error, its not a UBA 
> Oya. cmpw #at$_uba, ri ; is it a UBA? 
01 12 1504 1084 bneq 90$ ; branch if not a UBA 
05 1 dg 1085 rsb ; else, return to caller 
8 D5 1507 1 90$: tstl (sp)+ :; if not a UBA, return a skip 
5 04 44 1 clrl r0 ; this entry status to the 
05 1308 : 8 rsb : action routines caller 
15DC 1090 ;eeeeeeeere 
15DC 1091 vec_mapreg: 
0 10 15DC€ 109 _ Bebb vec_test_uba ; is this a UBA? 
8 C2 15DE 109 subl #<8716>, sp 3 make scratch space on stack 
5 DO 15€1 1 Be movl so, r $ pojne to string descriptor 
6 1 15€4 1095 mov l AG r2) ; build string descriptor 
04 a 08 A —€ 15€7 1 3% movab Bre), 4(r2) 
54 QOO00E21"EF 9E 15EC 109 movab null_ascic, r4 3 assume no map Lock 


DEVI Display device data structures 16-SEP-1984 01:26:37 VAX/VMS Macro V04-00 Page 
y5u-000 show.controlter tables action routines et $4598: 75 SDA.SRCIDEVICE.MAR; 1 . (38) 
07 10 AB OOF €1 #=15F3 1 8 bbc #vecSv_maplock, = ; branch if no map lock 
15F8 1 vec w_fapreg(ri1), 10$ 
54 a SE 15F8 1100 movab vec_locked, r ; else, change assumption 
53 10 AB OF O EF I5FF 1101 108: extzv Over ou nepred. fyecSs_mapreg, - ; extract starting map 
1 i § Ste vec$w_mapreg(r11), r 3; number 
o.s ° 
18 1104 ctrstr = vec_fao_mapreg, - ; convert whole mess to a 
16 1105 outbuf = (ret, ~ 3; string 
12 1} § outlen_= (r2), - 
=r _* 
p2 = vec$b_numreg(ri1), - 
1605 11 4 ecsb (r11) 
zr 
180 11 do column ntry as 3 put a in column 
SE 18 £9 16 § 1111 addl #28+16>, sp ; cleanup stack 
05 16 116 rsb 
1630 1114 
162A 1115 ; PRINT_COLUMNS tables for IDB display 
1630 119 | 
162A 1118 idb_column_1: 
162A 1119 column_list - 
162A 1121 <<CSR address>, l_csr.xl>, - 
162A 11 § <<Number of unitS>,w.units,uw>, - 
165A 1194 ' 
165A 1125 idb_column_2: 
165A 11 § column_list = 
165A 11 idb$, 16, 8, 4, <- 
165A 1128 <<Owner UCB addr.>,l_owner,xl>, =- 
165A 1129 <<Interrupt vector>,1db_vector,0,18,6>, - 
1680 1131 : 
168A 11 § idb_column_3: 
168A 11 column_list - 
FE LE Markie Ssap at 
1 address>,l_adp,xl>, =- 
1eaa 1137 : 
16AA 11 8 seeeeereeee 
16AA 11 db_vector: 
50 0B 9A 16AA 1140 movzbl idb$b_vector(r11), r0 ; Obtain vector information 
1 1 1oAg 1141 beql ; Branch if none present 
7E 23 9 78 (1 1128 ashl #2, rg. -(sp) ; Convert vector information 
E DO 1684 114 movl sp. r ; Get converted info. addr. 
1687 1144 do_column_entry ow ; Display information 
8E 05 16C0 1145 tstl (Sp)+ ; Cleanup stack 
05 16C 1348 90$: rsb ; Return to caller 
ise i 
16C 1149 ; PRINT_COLUMNS tables for DDT display 
1ec3 1481 
18¢ 11 § ddt_column_1: 
16C3 (11 cotumn_list - 
16C3 1154 ddt$, 16, 8, 4, <- 


Display device data structures 16-SEP-1984 01:26:37 VAX/VMS Macro v04-00 
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— 
o 
_ 
— 


<<Errlog buf sz>,w_errorbuf,uw>,- 

<<Start 1/0> ddt address, ddt l_start>, - 

<<Alt start > VO>7adt address,ddt$l_al err ~ 
<<Cancel 1/0>,ddt_address,ddt$l_cance 


ddt_column_2: 
column_ list - 
ddt$, 
<blig. ce is wi <diagbut, uw>, = 
<<Register dump>> ddt_address gets) } regdump> . 
<<Unit init>,ddt_address,ddt$l_u 
heats int>, ddt_ ~Sddress ddest= math ES - 


ddt_column_3: 
column alist - 


8, 0, 
<<FDT slicks lore ten.ane e 
<<FDT address>. fdt,xl>, 
<<Mnt ve ies ,ddt “eddress, ddt$l _mntver>, = 
£<Cloned UCB>, ddt_address,ddt$l_ ~cloneducb>, - 


Seeeeeeeeeee 


agen 
dl 


SNS SDT VTNNIA AAAS 
i a a kk hd 

©0265-0909 090909 SII NI SINISE NSN A AAAAAAAOOUIMIIUIN 
AIF $$ O OONAUE WN O OD NAME WN OUOONOM 


— ee = 2 ot 8 8 = 8 2 3 — —) — —) —) 2) 2 2 a 
OOWDD DW DDD DOOOOOOOAO SNH] OO 


52 5B CO ad 3; get datum address 
00000000°EF 62 1 6 cmpl (ros, "tibet ; 1s this the RSB routine? 
09 =«13 D beql 90$ 3 Branch if RSB routine 
F do_column_entry xl, jmp 3 output value 
52 O0000B79'EF 9E 8 90$: movab ddt_return, r2 : for “ks routine, display 
F do_column_entry ac, jmp 3 ret 


— 


8 ff 


54 00000000'EF 


57 
7E 


E73 
00000000 * GF 


7€ 
5E 


04 AC 
44 AG 


5E 


44 AG 
A CF 
2 
6 
44 A4 
57 


Display device data structures om 
show_system_block, show ctures OA bloc 


O1FC 
9E 


17D 


Oo MmMMMMnoOVCVIVVVVTVTVTVTVTVTCVO 


109 CO C9. G9 09 09 C9 G9 C9 C9 09 G9 09 G9 09 09 C9 C9 G5 09 C9 C909 INI NSINSI SIN NINN NINN 
WOW SRIM OE DOW OU SS MOOS LOCCCOCONDAOMvweo "Wo pS 


ee ce ce ee ee ee ce ce ce ce ee ce el ee cee eel cee cee el el el el el el el eel eel el el eel eel cee cel eel eel eel eel el cel el cel el cel cel el eel cee el cel cece el el eel el el 
MMNOOOOODW SY FY OOOO VAAN uu & PPP 


a a 8 a ed dd ed ed = = = 3 3 8 2 SS 2 2 os ss 2 2 


PRPPOPIPOPONONIPOPOPOPIPOPOPINUNOPOPOPIPIPUNIPINOPONIPIPUPSPUPNIPOPOPPUNINONONONU NPN 


PPE FMAM AAI MAINA DIPIDIPYNININININD 2 9 2 S| 2QOOCDOOOOCOCOOCOOOOOOOOOOC 


PWR 2 OOO NOA NEW 9 OD NAME WIN OOO NAU EWN @ OOO NAME WN (OO ONAUE UN OWOD 


SEP-1986 03:48:17 


A‘/VMS Macro v04-00 
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-sbttl show _system_block, show system/path blocks (SB/PB) 


show_system_block 


4(ap) 


show_system pee 


neved buffer, r4 


; display system block 


ensure 12 
getmem a4(ap), 
retiferr 

pusht 4(a 


(r4), 


print fs 
skip 1 
print. we BGS - 
buffer, 4(ap), 
sb_column < 
skip 1 


3; display each path block 


assume pb$k_ Longsh t 
mov l sb$l_pbfl(r4), 


pb_loop: 

et og #sb$l 
cm 8 b$l_Fli 
— +e 
brw 

mov | ops 
getmem Re 
retiferr 
ensure 


10$: 


e 

1,<!_! 

oC 
‘ ry 

pbéw. stsir4), 

pushab _s 

pbs $ts(r4), 


r?, § 
{ pe” 


“Status: 


ock. 


= SVA of the system block of interest 


Am<r2, r3, fr r5,r6,r7,r8> 


#sb$k_Length 


pushab sbSt pacenenes 
1,< “-- !AC System Block (SB) 


$b. column_2 


t 512 
pbSl_flink(r4) 


bfl, 4(ap) 
stat sh 


vt lentes, r8 
oF » Mpb$k_ Length 


-(sp) 


-9 stranslate. bits 


aaa 'AS> 


This routine displays the system and path blocks given 
the address of the fyeten bt . nips 


; get working buffer 


3; copy SB to local mem. 


3 node name 
IXL o-=> 


init PB scan 


is there another PB? 


branch if no PBs left 
save new PB addr. 
copy PB to Local mem. 


--- Path Block (PB) !XL ===> 


save stack pointer 
allocate scratch 
push PB STS 

push bit conv. data 
translate PB STS 

h result 

push PB STS 

output PB STS 
restore stack 


hes Display device data structures ie 1 =$E0=1 388 gt: 98: 7 AX/VMS Macro V04-00 


show._system_block, show systen/path bloc 5-SEP-1 


tt 


0000 O000000D 
—— Ss BOMmm 
UO NOOO 
ee 
Ds 


MO OONOU 


end_pb: 


SDA.SRCIDE VICE. MAR; 1 


print columns - 

buffer, r8 

b_column_ a pb. column_2 
skip 
brw pb_loop 


ret 


OEE Display device data structur 


es 
show_system_block tables & action routin 5-SEP- 


0000 


00000000 


5F 54 4E 49 41 4D 00° 
06 

2D 41 00° 

02 

2D 42 20 69" 


4B 4F 69" 


om SS SS Ss SS SS SS SS SS YS SY SS SS YY YY YS 


SOOGOCOCOSOOSOOOOOOOSOOSOOSOOSOOOSOOSOSoOoOO 


MM MMMM MMMMMMMMMMMMMMMmMmMmMmmMmmMmmooO So OOOOOOOOOVOVOVOOVOOOOWOOOOWOOWOwowN 


WWIII AIA POROPOPOPONIPONIPOPIPIPUNIND | | QOOM MMM 3 3 3 3 3 3 


PO WAM FF FAO OOO HNN 3 2 PININIQO OMIM MET BB BB PP PPP PPP PPP PPP PPP PPE 


-sbttl 


system/path 
R 
3 
R 
R11 


RO 


SNS SSIS NIAAA AAA AAOOOUMINTIUM 


.save 
-psect 


sb_fao_6bytes: 
string 


sb_fao_ascic: 
string 


cddb_fao: 
string 


null_ascic: 
- long 


MEW SO ODNOAMU EWN $9 ODNAUES WN = OOO NOAOUE WH OWOONOUSE 


maint_ascic: 
eascic 


COO OOOOOOWMOOCDCOCO CU CDOCDOCO I~ 


99 : 
$09 cbipascic:, 


308 ok_ascic: 


eascic 


ono 


cbl_a_ascic: 
eascic 


—_ eh a eb a fF ae at at tt = = = SS 3 SS SS SS SS 2 SS SS a a 1 1 a 


4 


5 
1506 bad_ascic: 


The followin 


R1 = R5 


"SSERHSHE ABSSSEAT Wesaitedsesedtaage Pe) | 


show_system_block tables & action routines 


Q are all PRINT_COLUMNS action routines for the show 
lock displays. 


Action Routine Inputs: 


value from the COLUMN_LIST eotry 

size of value section for this item 

address of a descriptor for a scratch string in 
which the FAO converted value is to be returned 
base address of the local UCB copy 


Action Routine Outputs: 


status 
lbs ==> use this entry 
lbc ==> skip this entry 
scratch 
all other registers must be preserved 


: FAO control strings, etc. used by the action routines 


Literals,exe,nowrt 
<!#e 'XWIXL> 
<!#e '#(AC)> 
<'#e 'XL> 
0 
/MAINT_/ 
/A-/ 
/ B-/ 
/OK/ 
| 
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vbu-060 show.system, block tables & action routin ate 7 §5:98:75 SDA.SRCIDEVICE.MAR; 1 . diy 
44 41 42 00° OE 1307 eascic /BAD/ 
83 bese 


crossed_ascic: 


64 65 58 20 89" eascic / Xed/ 


0000 -restore 


; PRINT_COLUMNS tables for SB display 


sb_column_1: 
column_list - 
sb$, 21, 12, 4, < = 
<<System I1D>,sb Gbytes sbSb_systemid>, 
<<Max message size>,w_maxmsg,uw>, = 
<<Max datagram size>,w_maxdg,uw>, - 
<<Local hardware type>,sb_lwchar,sb$t_hwtype,29,4>, =- 
<<Local hardware vers.>,sb_6bytes,sb$B_hwvers>, - 
<< >, sb_6bytes,sb$b_hwvers?6>, - 


WAPROPOPORIPONRINUNININ) 2 3 Ss OO 


ESA § 
ESA 
ESA 0 
E3A 
3 F 1311 
1914 1 § 
1914 1 
1914 1314 
1914 1315 
1914 1 § 
1914 1 
1914 1 } 
1914 1 
1914 1320 
1914 1321 
1914 1 ¢ 
1914 1 
1914 1324 
1914 1325 
1914 1326 
198¢ 1358 
00000030 1358 ! 4 ente _putacernt = sb$q_swincarn+4 
sb_column_2: 
1984 1331 ~ column_list - 
1984 1 3 sb$, 21, 12, 0, <- 
1984 133 <<Local software type>,sb_lwchar,sb$t_swtype,29,4>, - 
1984 1; 4 <<Local software vers.>,sb_lwchar,sb$t_swvers,29,4>, - 
1984 1335 <<Local software incarn.>,g_swincarn,xl,25,8>, - 
1984 1336 << >,q_swincarn2,xl,25,8>, = 
1984 1337 <<sc§ poller timeout>,w timeout.xw>, - 
1984 1338 <<SCS poller enable mask>,b_enbmsk,xb,31,2>, - 
eS 
19F4 1341 seeeeeeeeee 
19F4 1346 sb_6bytes: 
53 5B 52 C1 19F& 134 addl\3 ss r2, rll, r3 ; locate storage of interest 
55 Oc C2 bo } rf get : #12, 5 ; get size of filler field 
19FB 1 6 “ ¢etrstr = sb_fao_6bytes, - 
19FB 134 outbuf = (r7), = 
a i rt oytien,© (r7), = 
=r5,- 
19FB 1350 Bg = 403), - 
HHA 1351 p35 = (r3) 
ot 8: ae 
1A14 1 3¢ peeeeeeeere 
1A14 1355 sb_lwechar: 

53 5B 52 ct IA14 1 2$ addl\3 ss r2, il, r3 ; locate storage of interest 
7 ve 1A18 1 2 clrl -(sp) ; make scratch ASCIC space 
6 95 1AlA 1 3 tstb (r ; check for null string 
oe DD TATE 1300 besht be Peg it 

pus 3 
52 iF DO 1A25 1361 10$: mov | sp. r2 ; save ASCIC pointer 


Freczeres dns a i tb 4 04:98:37 AX/VMS Macro V04-00 Page at) 


Ory ite Display device data s 

v04-000 show. system_block tables & action routin EP-1984 17 CSDA.SRCIDEVICE.MAR; 1 
movl (r3), 1¢r2) ; put text in ASCIC string 
do_column gorey ac ; convert the ASCIC 
adit #22%4>, sp ; cleanup stack 


5$: pupnt #0 
rb 10$ 


; PRINT_COLUMNS tables for PB display 


pb_column_1: 
column_Llist - 
pb$, 21, 12, 4, <- 
<<Remote sta. addr.>,sb_6bytes,pb$b_rstation>, - 
<<Remote state>,pb_rmtstate,0>, - 
<<Remote hardware rev.>,l_rport_rev,xl>, - 
<<Remote func. mask>,l_rport_fcn,xl>, - 
<<Reseting port>,b_rst_port,xb>, - 
<<Handshake retry cnt.>,wretry,uw>, = 
tated buf. wait queue>, |“waitafl,qe>, * 


01 A2 63 00 A 
SE = 08 £0 


6909 69 69 08 SIN NN INIA AOAOOOOOO 


>>>r>rrrr,r,rr>r>r>r>rr,r>r,rr>r 
DNAS WN OOD NAME WN SO OD NAME WN O OD NOAUE WN CO OCONAUE WN OOONOULS WT 


(C2 Cd Cd Gd C9 CD Cd Cd 0D 09 CD09 CD CD CD CDOs & 


pb_column_2: 
column_Llist - 
pbs, 21, 12, 4, <- 
<<Remote port syPe> oe rpore.typ.0>. ~ 
<<Number of data paths>,pb_dua path.0>. - 
<<Cables state>,pb_cables,0,18,15>,- 
<<Local state>,pb_Tclstate,0>, - 
<<Port dev. name>,sb_lwchar,pb$t_lport_name,29,4>, - 
<<SCS MSGBUF address5,|_scsmsg,xI>, - 
srot address>, |_pdt,xl5, - 


Guest ewUvED GD GD BD GD GD Go Go ep oo oo eo 
maa a a a ak ak a tk td = ot = = = = = = = 4 I = SS = Ss = =  — 1 ss —) 9 —) — — — — ss ss —) 2 2 ss 


PRP RR EERE REESE FE FWA NIAAA AWA AANA AAA AIAN 


a ed ed ed dd = = SS 2 2 8 3 2 —s — 2 ss — 2 — — 3 — 2 2 a 8 


8 8 
8 8 
8 8 
8 8 
8 8 
8 9 
8 9 
; 9 
9 
8 9 
| 9 
9 
8 9 
8 98 s;eeaeeeerere 
; 99 pb_rmtstate: 
54 OQOO00E21"EF 9E 0 movab null_ascic, r4 3 assume rport not in maint. 
tH 8 assume pb$v_maint eq 0 ; state 
OA $1 AB €9 1B3F blbc pb$b_rstate(r11), 20$ 3; branch if rport not in maint. 
54 Q0000E25'EF H B43 movab pajintescic. r4 ; else, set maintenance fla 
5 64 «OA B4A subw r4), ¢ 3; and reduce the fill coun 
53 4E7 ff 9E 184 208: movab pb rstate, r3 3; get remote state tbl. addr. 
5221 AB 2 1 EF 185 extzv B$v_state #pbSs state, - 3 extract remote port state 
B5 0 po$b_rstate(ril), re ; information 
00000000 ' GF 1 B5 9 sb “translate_address 3; convert it to ASCIC pointer 
, fa B5 eql 3: branch if translation failed 
55 60 82 186 1 subb (r0), 5 : reduce the fill count 
B6 1 $fao_s - 
B6 1 ctrstr = sb_fao_ascic, - 
B6 1 outbuf = (r7), = 
B6 1 outlen = (r7), - 
88 1 pi =r5,- 
Bes 14] a sae 
Po = 74, = 
B6 1 p4 = r0 
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DEVI Display device data structures 16-SEP-1984 01:26:37 VAX/VMS Macro v04-00 Page 33 DE' 
vOu-000 show, system, block tables & action routin BSE b a o8e §3:98:75 SDA.SRCJDEVICE.MAR; 1 " (11) v0 
5 rsb 
52 21 AB 9? 90$: movab pb$b_rstate(ri1), r2 : if cannot convert remote 
do_column_entry xb, jmp ; status then display value 


;eeeeeeeereee 


pb_rport_typ: 
movab 


53 ESCA CF 9E get port type conversion 


pb_rport type. r3 

assume pbSv_port. yp eq g, 

assume 0 e 

picts, #exa0bo0000"="" 
pb$l_rport_typ(ril), r2 

sb Zag’ ret ern_neeress 


52 14 AB 80000000 8F CB 
00000000’ GF 18 
tT. 


; get remote port type value 


; translate port type 
f Fransiatien failed 


eS ee 


WAI WII WWIWIinonononononororonons > 


PPP} FS OOOWWMmMncnc~~ 


WUNT OOF FIO FS-MOOWOMBWon ">> yr r—-O- 


1 1419 
1 1420 
1BBA 1452 
1BBA 1438 
1 1424 
iar 1258 
iB Tay 
1898 | ; 
1 1431 eql : branch 
52 0 oo 1 1 § movl r0, r2 : sqtup string for display 
! ! Z do_column_entry ac, jmp ; display translated string 
52 DD 1 1435 90$: pushl r2 ; else, display just the port 
52 5E 00 1 14 $ mov l sp, r ; type value 
1 14 do_column_entry xl 
8E D5 1 1438 tstl (Sp)+ : cleanup stack 
aie ee 
1 1441 ;eeeeeeeeere 
1 1486 pb_dualpath: 
1 144 assume pb$m_dualpath eq <*x80000000> 
52 14 AB 01 ~~ 189 Veee extzv tater wet 1; - > ; get paths flag for remote port 
rpor rill), r 
7E 52 O01 C1 18C3 1446 addl3 Hh. 72° ~tiel” «4 ¢ add one (there's at least one) 
52 SE DO 1BC7? 1447 movl sp, r 3 get value pointer 
1BCA 1448 do_column_entry ul 3 display value 
8E D5 1BD3 1449 tstl (Sp)+ 3 cleanup stack 
0 ibe 1281 - 
1BD6 1283 pb cables: 
cables: 
1BD6 1454 me assume pbSv_cur_ps eq 0 
54 03 DO 1BD6 1455 mov 3, 74 ; assume single path port 
0000021 EF 9F 1BD9 1456 10$:  pushab  null_ascic 
F7 54—OF SS 1608 199 sobgtr r4, TOS 
7. o  & 1B 1289 subl #4, 75 ; adjust fill for path A 
QOOOOE3S3"EF 9F 1BES5 1460 ushab ok_ascic 3 assume path A is ok 
09 $2 AB 58 1BEB 1461 lbs bSb_p0_sts(r11), 25$ ; branch if path A is ok 
6E O00000E o’et § 1BEF 1996 movab 3 d ~icic, (sp) : else, change path A to bad 
5 4 iere 14 decl r 3 adjust fill for bad path 
OOO00E2C EF F ere Age 25$: pushab cbl_a_ascic ; insert “‘A- 
1BFE 1006 assume pb$m_dualpath eq <*x80000000> 
14 DS iIBFE 146 tstl $l_rport_typ(r11) : is this a dual pathed port? 
39 18 1€01 1408 bgeq , $ ; branch if not dual pet ed 
55 § 1€03 196 subl #5, 5 : adjust fill for path B 
OC AE Q0000E33'EF ; 1006 14 9 movab ok_ascic, 12(sp) ; assume path B is ok 
OA gh AB 3 1¢ 3 147 blbs bSb_pl_sts(ri1), 338 : branch if path B is ok 
OC AE O0000E over 3 1C 1476 movab s d_ascic, 12(sp) : else, change path B to bad 
5 1C1A 147 decl r 3 adjust fill for bad path 
08 AE QOO000E2F ‘EF —E 1C1C 1474 33$: movab cbl_b_ascic Step) ; ad 
1024 1475 assume pb$v_cur_cbl eq 


NI 04-00 Page 34 
SEP-1984 AX/VMS Macro V 31) 
Mites shou svete. block tables €aetion routin '$-8 SEP- 71984 03: $837 SDA.SRCIDEVICE .MAR; 1 
teat 1 », 408 : oranen if cables not crossed 
08 28,aB EB C24 1476 bibs, pbSb.cbl stedr1]) 4 i Claethaga cressed"esotes 
10 AE 00009 SA’ Ft 25 tek lee Soxgh  5reeege.n0s 1s. ; and adjust fill count 
: iC 1479 ; set number of ASCICs 
5 DD 1€33 14 9 40$: pushl #5 : set fill count 
33 DD \t 1? — % : rl ; get parameter List pointer 
54 E 00 ave 
it A 12 Ffaot.s ctrstr = sb fao_ascic, - 
1C3A 1485 outbuf = (r7), = 
1C3A 14 § outien : ari}. - 
rm : 
SE 1c CO e048 addt = Rc7#4>, sp + cleanup stack 
05 1¢50 1982 rsb 
1e3) 1254 peekeereteee 
. : on 
CF O9E 1634 1298 ecu pb_state, r3 + get port state convers 
53 £388 1056 1494 assume pb$v_port_ typ eq eq s get toca port store 
3¢ 1056 1495 povaul ppdu_stetéiril) re ; translate port state 
86 Ober 16 1C5A 1496 sb pgranslate_ emesis ; branch if translation failed 
ere f 13 160 1497 eat Bos ; setup string for display 
a ee 1k88 1299 do-column_¢ wentry ac, jmp + display trans. str ; 
1C6E 1500 ; else, display just the por 
; $Swistate(ri1), r2 ; 
= ee ee 193 1302 i re yp xw, jmp ¢ Stete value 
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vou-5 0 show.ucb, show unit control block (UCB) ~3Fb=1 984 $3:98:75 SDA.SRCIDEVICE.MAR; 1 oe (12) v 


ps 


1C7B 13 4 -sbttl show_ucb, show unit control block (UCB) 
1¢7B 1505 ;- 
1¢7B 15 § : 
1€7B 1507 ; show_ucb 
1C7B 1508 ; 
1€¢7B 1509 ; This routine shows the unit control block associated 
1C7B 1510; with a device. 
1C7B 1511 ; 
1C7B 1316 : 
108 1513 ; 4(ap) = address of DDB in local storage 
1C7B 1514 ; 8(ap) = address of UCB in local storage 
1¢7B 1515; 12(ap)= actual address of UC 
1C¢7B 1318 ; 16(ap)= address of nodename in local storage 
1C7B 1517 ; 20(ap)= flags longwor 
1C7B 1518 ; 
1C7B 1519 ;--- 
1C7B 1520 
1C7B 1521 show_ucb: 
OFFC 1C7B 15 ¢ sword “m<r2,r3,r4,r5,r6,r7,r8,r9,r10,r11> 
1¢7D 15 
1C7D 1524 ensure 24 
Oc AC OD 1033 iF H pushl 12(ap) ; push virtual address of UCB 
54 08 AC DO 1C€98 1527 movl 8(ap), r4 ; get local address of UCB 
OOOO1160"EF 9F 1C9C 1528 pushab unknown ; assume the device will be unknown 
52 40 A4 9A 1CA2 1262 movzbl ucb$b_devclass(r4), r2 ; get device class value 
53. ESF6 CF 9E 1CA6 1530 movab device_class, r3 ; get conversion table 
00000000'GF 16 1CAB 1531 sb “translate_address ; get address of device type table 
12 #13 «1CB1 1336 eql 0 ; branch if no class matc 
52 41 A4 QA 1CB3 153 movzbl ucb$b_devtype(r4), r2  ; get device type value 
3 50 pO 1CB7 1534 mov rd, r ; get table address picked above 
00000000'GF 16 1CBA 1535 sb g_jrenslate_address ; get device type ASCIC address 
03 13 1CCO 1536 eql : branch if no device type matches 
6— 50 00 ieee 1537 movl r0, (sp) ; else replace unknown with devtype 
52 04 AC 7D 1eCe 1238 90$: movg 4(ap), r2 3 get DDB and UCB addresses | 
5A O00001065'EF 7D 1C€C9 1540 movq one_path, r10 ; assume a single path device which 
1608 134) ; is not a virtual terminal 
40 AS 42 BF 91 1CD0 1348 cmpb #dc$_term, - : is this a terminal? 
1CD5 1544 ucb$B_devclass(r3) 
49 12 1CD5 1545 bneq 2008 ; branch if not a terminal 
54 O0A0 C3 DO 1CD7 1346 mov l ycbSt _tlphyucb(rs), r4 ; is this a virtual terminal? 
F 13 1CDC 154 beql 77 : branch if not a virtual terminal 
Oc AC 4 01 1e05 1548 cmpl r4, 12¢ap) ; does virt. term, equal phy. term.? 
13 1CE2 1549 beql 7777 49 yes. then this not a virtual term. 
5A OOOO111F*EF 7D 1CE& 1550 movq virtual_terminal, r10 ; it is a virtual terminal 
ieee 1551 getmem ucb$w_unit(r4) 3 get physical terminal's unit number 
~~ we. we SUP 1326 movzwl ri, - sp ¢ push than unit number 
55 OO0000B5'EF 9E& 1CF8 155 movab ddb 2p, r5 3 get work space for phy. DDB copy 
1CFF 1554 getmem ucb$l_ddb(r4) ; get address of DDB for phy. uc 
1D09 1555 getmem (ri), (r5), - ; get local copy of physical DDB 
1009 1338 #ddbSk_ Length | 
14 AS OF IDIA 1 ushab ddb$t_name(r5) ; push address of phy. device name | 
O0OAS 31 101d 15 8 7777$: brew setup_primary $ 9° setup virtual terminal name | 
1038 1 ; (this is also a branch assist) 
1D 1560 | 


—$—$—— a -—y 
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1561 200$: bith #de ; dual path device? 


$m_2p, = 
beal ycb§l devchar2(r3) 


ee ; branch if not dual path 
5A QO000109B'EF 7D mov this_primary, r10 ; assume this path is primar 
59 ate 9 seven none p, , 3; get node nene workaree address 
54 OA8B C3. OD mov l ucb$l_dp_altucb(r3), r4 ; is there a local path? 
m6 6Y bneq local _2o_device ; branch if local path 


; both paths through the class driver 
; push secondary unit number 
: get secondary DDB address 

f scanning primary DDB chain, 


movzwl ucb$w_unit(r3) ry : 
$), ; 
(ap), process_ep_ddb ; go join common co 
ddbirs) . -# 3 


7E 4 a3 3 
35 QOOAO ¢3' OD movl ucb$l_dp_ddb(r r 
33 14 AC ao bbc #flag_v_alt_path, - 
e 
55 28A3 OD mov l ucb$l_ ; else, other DDB is primary DDB 
5A OQOO010DD'EF 7 movq this_sec ndery ri0 ; and this is the secondary path 
TS brb process_2p_dd ; go to common other path code 
local_2p_device: ; only one path through the class driver 
getmem ucb$w_unit(r4) ; get other path unit number 
a ae ri, -(sp) 3; push other path unit number 
getmem ucb$l_ddb(r4) ; get other path ddb address 
movl rms ¢ ; save ddb address in right place 


= oF 
07 3¢ AS) =—03-—sé€E* bbc #dev ; branch if the path whose UCB is in 


$v_cdp, - 
ucb$l_devchar2(r3), - ; r3 is the primary pat 
process_2p_dd ; else indicate that first name is 


| 

| 

SA O00010DD'EF 7D movg this_secondary, r10 ; the secondary path 
process_2p_ddb: 
| 

| 


54 QOOQ000BS'EF 9E movab ddb 2p, r4 ; get workarea address for 2p DDB 
(53, (ra), = DDB 


DOW YS SS OO OOD NIN NINN NINA AOA UT BB NII AAPOR 


ae ae ae ee ee ee ee ee eee ee cee ee ee ee ee ee ee ce ce ee ee ee ee ee ee a a ce ee ee cee ee ee ee ee ed ee ee ee ee ee ce ee ee ee a ee ee ee ee ee ec ee 
MOVCVTUOVCTOOCOCOCCOOUOUOCOCOOVOCOUUCUVUOVUVOTOCVUOVCOCUOUCTCUCUUCOVUCOVUVTVUVCVUVCVCVUUUTTTFO 
oOo for» See emo DNF NNN NES WWOOOMNUVMOSI WOGAD Sf SOOL*MWIDOLOIGOL SO 
I AOQOODOOOOOOOOOOOWO OOOO 000000900 09 09 090909 SINISE NS NS NNN NOAA AAAAAO 
NAUSEA @ OOO NA UNE WIN 9 ODNAUE WN O OD NAU EWA) 0 OO NA E WO OONOAU EW 


ee ee ee ee ee ee ee ee ee ee a ee Ee SS) 
Fee tet eat eal eal eal al oat onl al * al * al al Mat *4t al Sah Ah Ah Ah Ab Ab Ab Ab AL AL AD AL AL AL AL AL TAL AL AL AL AL AL AL AL Al al Ab dl ah sl dh alsa eah al sh sla) 


getmem ; pickup secondary 
#ddb$k_Length 
14 AG OOF pushab ddb$t_name(r4) ; push address of secendery device name 
59 QOO000060'EF 9E mova nodnam_2p, r9 3 get workarea address fo 2p node name 
50 34 A& 00000044 BF (C1 addl #sb$t_nodename, - ; locate secondary node name 
ddb$l_sb(r4), r0 
getmem (r0), (r9), - 3; pickup secondary nede name 
#sb$s_nodename 
51 51 QA movzbl ri,r ; convert byte count to long word 
0B «13 beql setup_primary ; don't add ‘'$'' to null node name 
51 06 incl ri ; add one for ‘'$ 
6 51 90 movb ri, (r9) : store count in ASCIC string 
6941 24 90 8 movb #*a/$/, (r9)Er1] ; store ‘'S"’ in string 
59 OD ; pushl r9 ; push node name pointer 
C poten pt eery 
54 AS DD C push ucb$w_unit(r3) ; unit number 
14 A2 OOF C pushal ddb$t_name(r2) : generic controller name 
10 AC OD C pushl 16(ap) : address of nodename 
; printd rio, (r11) ; print device name and UCB 
$s 
5B SE 00 E mov sp, vil 3; save pre-allocation stack pointer 
E alloc 80, fr ; allocate an output buffer 
64 A3 DD «1DF pushl ucb$l_sts(r3) ; push device status value 
E2BB CF OF F pushab unit_status | : bit definition table 
00000000 ' EF eee. F calls #2,translate_bits ; translate bits into string 
4 oD 0 pushl 4 ; result string 


- 


> 
Oo 
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Display device da 
show_ucb, show un 


DD 


do_ucb_col 
m 
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RA HMMM MmMmmMmmMmmMmmmmmmmmmmmmmmmmmmmmrmrmnrnrrnirnieny 
C009 NINA A AMIE PINININIPINPININ OO MHBMNIO SP OWOAOOOIUISE SS SWWNPNNON S| S| OO 
CO— PWM OOS MUNDO IF SF VMI BS SPI TNOMOAOY PP PSM SS MON SM Pr O Pr O--9 FP OOon 
a ed ed ed od od od 3 dd - D-DD 
DDR AAPAAAAAAAAAAAPA AAA AAA AA AAAS AAASAAA AAAS OAAOAAAAO 


Po teal al “al “al “al pl al ah AL AL Ab Ab Ah a Ab dh Ab de ee et ee ee Oat at et at et lel 
BONA AN SO OD NAUE WN OOOO NAN EWWN @ OC OD NAME WN OOONOUS WOW 


D1 
a structures 
t control block (UCB) 


CaS tng WES Sy ede) H 
enable Lsb 


cb$l_sts(r3) 
<Device status: 
#80, ¢ 


r 
ucb$l_devchar(r3) 
Gev ied cher 
: , translate_bits 

cb$l_devchar(r3) 


<Characteristics: ! 
#80, (rd 


r 
ucb$l_devchar2(r3) 
osY ce_char 
#2, translate_bits 
r 
ucb$l_devchar2(r3) 
2,< 
ft, sp 


make_symbol UCB, 12 


make_symbo 


tstl 
beql 


bc 


ucb$l_amb(r 


q 
make_symbol AMB, ucb$l_amb(r3) 
b cb$v_bsy, ucb$l_sts(r3), 20$ 
make_symbol IRP, ucb$l_irp(r3) 


#u 


-disable lsb 


umns: 
ovl  4(ap), ucb_ddb 
print_columns - 
a8(ap), 12(ap), - 

mov 8(ap).- 

Bbc adevsi-n db 
movw a 

mov ueb$t caddb(7$).r6 
callg af Re how cago 

ncw ag_2end_¢ 

mov | yebSt2p-cddb(r3) .r6 
carie i 2p snoy C 

calls show_i6 

callg (r$).shdw, uch 

re 


(ap) 
L SB, ddb$l_sb(r2) 
make-symbol ORB, ucb$T_orb(r 
make_symbol DDB, ucb$l_ddb(r 
make_symbol DDT, ucb$l_ddt(r 
make_symbol i veges .crbir 


SrSEp=1986 Os:48:i7 


xe | 


'XL 


push d 


push 


AX/VMS Macro V04-00 
SDA.SRCIDEVICE.MAR;1 


oye device status value 
AS> 


refresh qutpus buffer descriptor 


ey ce characteristics one 
; setup bit definition table 


translate bits into string 


result string 
Pe device characteristics one 


; refresh output buffer descriptor 
push device characteristics two 


setup bit definition table 


translate bits 


into string 


push result strin 


g 
A device characteristics two 


; restore stack pointer 


; setup local DDB copy address 


ucb_column_1, ucb_column_2, ucb_column_3 


sp H bush 
$cB. ucb$l_devchar2d(r3), 
nd_cd ; ini 


e 


b 


Vogal .réat 
0$ 


address of UCB 


; check to see if mscp ser 
nitialize flag to zero for primary 


ass the address of the cddb b 


isplay class driver data bloc 


set to 1 to indicate secondary 
ass the address of the secondary cddb 
isplay class driver data block 

; Display 1/0 request queue 

; Display volume control block 
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get_ucb, copy UCB to local storage “SEP-1984 
if 2 1874 -Sbttl get_ucb, copy UCB to local storage 
1F89 (1 i ; This routine knows how to load enough of the UCB into local memory for 
1F89 1675 ; the Spores ions performed above, but how to avoid trying to load more 
1F89 1674 ; UCB than there really is. 
1689 1676 : Input 
; inputs: 
fas ere; i” 
1F89 1678 ; rs real UCB address 
if 4 192) $ r address of the place to copy it to 
1F89 1681 ; Outputs: 
1F89 16 ¢ i 
1F89 1683 ; rd status of the copy operation 
a +3 1684 ; ri first longword of copied UCB 
1F89 1685 
1F89 1686 
1FR 1687 get_ucb: 
3¢C 6 BB_SCé«SAF89~=s:«116.88 pushr #*m<r2,r3,r4,r5> ; save registers 
67 OOCC BF 00 6€ 00 2 ey 1689 movc5 #0. (sp) #0, #uch size,(r7)  ; zero out the local ucb 
3C =6BAss:'1F93=«—- 1690 popr #*m<r2,r3,r4,r55 3; restore registers 
1795 1691 trymem ucb$w size(ré) ; get size of this UCB 
1E 50 5? 1F9F 1996 blbc r0, 90$ ; exit now, if error occured 
1 6 C ay 169 movzwl ri,r : extend size to a longword 
OOOOOOCC BF 51 D1 IFAS 1694 cmpl ri, #ucb_size ; is UCB bigger than the local space? 
05 15 FAC 1695 bleq 10$ ; branch if not bigger 
51 OOCC BF 3C | 1696 movzwl #ucb_size, ri ; else minimize the size 
1FB3 1697 10S: trymen (r2)> (r75, ¢1 ; copy UCB to local storage 
05 FCO 1698 90$: rs ; return to caller 


DEVI Display device data structure 16-SEP-1984 01:26:37 VAX/VMS Macro v04-00 P 9 
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42 ~sbttl show_ucb tables & action routines 
F -save 
0000 é -psect Literals,exe,nowrt 
6 ; 
é : FAO control strings for locally generated UCB displays 
o2 one_path: 
0000106D'00000005" 106 1 -address 5+ 10$ 
8 D ! 108: string “\!40<!AC!AC!UW!>!17AC UCB address: !XL\ 
098 13 this_primary: 
000010A3'00000008' 44 1 address 8, 10$ 
a } 10S: string “*\!40<!AC!AC!UW (!AC!AC!UW)!>!17AC UCB address: !XL\ 
OD 17 this_secondary: 
000010E5'00000008' 10D 1 address 8, 10$ 
OF 19 10$: string “*\!40<(!AC!AC!UW) !AC!AC!UW!>!17AC UCB address: !XL\ 
virtual _terminal: 
00001127°00000007' -address v 10$ 
10$: string “\!40<!AC!AC!UW ==> !AC!UW!>!17AC UCB address: !XL\ 
unknown: 


6E 77 6F 6E 6B 6E 55 $9" eascic /Unknown/ 


: FAO control strings used by the action routines 


PAAAAAOOOON—— 
MWOCOomp#moooowyranniog 


ucb_uic_cstri: 
string <C!60W,!60W]> 


ucb_two_bytes: 
string <!5XB/!2xB> 


ucb_retry_fao: 
string <!#UB/!UB> 


ucb_test_retry_fao: 
String <!UB> 


-restore 


ob > > >> my 
NOOOOOOCWWWoco 
a ee a st et st a ss — oe a nw“ 2 2 2 as ss 2 


> PRINT_COLUMNS tables for UCB display 


BPP BPE EE EE ANNI ANI IIIonony Ss PoPOrororornong» 


MEW OOD NO NEU OOD NAOUE WN OOON AOUSWN (OOO NOUE WI "OOOO WO 


ucb_column_1: 
column_list - ; column 1 -- allocation 


ucb$, 17, 8, 3, < = : and other device status 
<<Owner UIC>,orb_owner,0,10,15>, - ; Owner UIC 
PID>,|L ; Owner P 


a aaa aa ai a a a a at a a a = 8 4 a = ts 2 ts — — — —» ss 2 a ss 


Se at ak i a dk ed od od od = 
SON Or 


POOOOMOOOOOAL 
et at et ee 


WAIT" 


<< xb, - D 
<<Alloc. lock Th>s deb. lockid,0>, - ; Allocation lock 1D 


8. ff 


Display device 
show_v.t tables 


ee ee ee ee ee 


ot hh hh hh SS SS BOO OOOO OC OCCOCOCOCOCONNNOO 7 nH 


PUP PULPULPV PUPP SS SS NS SSS SSNS SSNS SSSI SESS OOOOOOOO 
a a a a a a ee a a a a a ll el a ll el cal le el ll le a SD a a a a a 


FW 9 OONOA NEW O OONO 


ee ee a a a a dd dd 8 dd 8 8 8 


——=DOOOS0S9000 


PR OODNOA NEW (OOD NAME WIN ( OOONOUE WN" OOOnNou 


toes CREECHSES 898597 


<<AL loc. class>,ucb Te ee: ,ucb_ddb>, 


ote py pe? ,ucb. cUsty 


2e>>W_ 1, a « 


» 5 

<<DEVDEPEN « L_devdépend,xl>, 
<<DEVDEPND2>, | "d Geydepnge xl, 
<<FIPL/DIPL>, *ucb pls,0>, = 
<<Charge PID>,ucB_cpid,0>, = 


sdadata,noexe,wrt 


Lore 


column. Uist. ~ 


18, 8 3, <- 
wiietestton’ count>, lL_opcnt,ul>, 
<<Error count>,w errent uw>, = 
<<Reference count>,w_refc,uw>, 
<<Online count>,ucb Snient,0>, 
<<Retry cnt/max> uch. retry.0>, 
<<BOFF>,w_boff,xw>, = 
<<Byte count>,w_ bent xw>, = 
<<SVAPTE>, L_svapte,xl>, - 
<<SVPN>,ucb~ _svpn,0> = 
<<DEVST§> w_devsts,xw>, - 
<<Master CSTD>,ucb.mcsid,0>, - 


<<Int. due time>, ucb duet im.0> ’ 


<<RUAITCNT> ucb_ rwaitcnt,0> = 


column. List. - 


8. 0,<- 
vcore sak otes” iS orb,xl>, 
<<DDB address>, |~ “db 2 xl> .° 
<<DDT address>, l— spct nla .* 
<<vVCB address>,ucb_ vcb,0>, - 
<<CRB address>,| _erb.xl>, - 
<<LNM address>.ucb_ lnm 0>, - 


<<AMB address>, l_amb,x( neq>, - 


<<PDT address>.ucb_ pdt, 0> 

<<CDDB address>,ucb cddb, "b. « 
<< 4 _CODB addr.>,ucB peddb, *0>.- 
< P-DDB address>, ucBb_2pddb,0>, 


AX/VMS Macro v04-00 
SDA.SRCIDEVICE.MAR; 1 


P"UCB address>.ucb-altucb, 105.-5 


<<IRP oggrese> uch ard hk Pe irp>, 


<<Fork PC>,ucb_ psy. uc {oss 
<<Fork R3>,ucb_bsy,ucb$l_f 
<<Fork R 


>,ucb_ =bsy jugs trh>, 


<<1/0 wait queue> oqfT,q2> 


; Allocation class 


; Device class/type 
; default buffer size 
; Device dependent Lb an 


; Fert / device IK 
d 


; UCB otae charge PID 


*** end column 


aoe ~ > 2 -- device activity 
at 
3; operations completed 


; errors recorded count 


reference count 

online count 

error retry count/maximum 

byte — 

byte co 

system —- + addr. PTE 

system virtual page number 

Device dependent Status 

Master node's CS 
Interrupt due time 

heasene to uett count 

see end column 


column 3 -- pointer addresses 


Object’s rights pleck 

Device dete block 

Driver dispatch table 

Volume control block 

poannes request block 
pointer 

pod oA. mailbox 

Port descriptor table 

Class driver data block 

Alternat te CDDB 

Secondary och DDB 

Alternate 

Ll of the fol Loving a pour 

only when the UCB is usy 

- ; 1/0 request packe 

Fork Pe 

cork R 

Fork R4 

: Pending, 1/0 queue 


; *** end column 


eo 


Page > 


——————————} 


H 14 
DEVIC Display device data structures 16-SEP-1984 01:26:37 VAX/VMS Macro Vv04-00 P 41 
v5u~000 show.ucb tables & action routines ae 83:98:73 SDA SRCIDEVICE MARS? mei (12) 


= 
Ww 


The following are all PRINT_COLUMNS action routines for the UCB 
display. 


Action Routine Inputs: 


size of value section for this trem 

address of a descriptor for a scratch string in 

which the FAO converted value is to be returned 
R11 base address of the local UCB copy 


Action Routine Outputs: 


Re value from the COLUMN_LIST entr 
R?7 


RO status 
lbs ==> use this entry 
lbc ==> skip this entry 
R1 = R5 scratch 


Sete Ge Ge Se Se Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge 


seeeeeererrere 
ucb_alloclass: ; if appropriate, return allocation class 
bbc tdev$v_fod, - ; branch if not a file oriented 
ucb$l_devchar(r11), ucb_act_nop : device 
addl\3 - #ddb$T_allocls, (rd), 2 et allocation class address 
ucb_act_ub: ; display allocation class 
do_column_entry ub, jmp 


SF 38 AB OCE:COC‘é€é‘* 
~~ SR CU 


peteeeeeere 
ucb_altucb: 
4D 5C AB (04~—COCE; bbc 


? #dev$v_2p, ucb$l_devchar2(r11), - ; branch if device is not 
$$ ucb_act_n dual pathed 
52 O0A8 CB 
62 D5 
44 13 
0087 = 31 
AS 
AG 
Ag 
27 64 AB SOCOOB:Sté=*D rv 
52 5B CO ~ 
B1 


° ; 
moval uebSt_dp_attucb(r11), r2 ; alternate UCB address 
r 


2 OO0009 090909090908 SINS SINISE 
o—— TS COCOA BO OP tt tt tt tt 


tstl ; is there something there? 
beql ucb_act_nop ; branch if nothing there 
make_symbol - ; else, 
2P_UCB, (r2) ; make a symbol and 
brw ucB_act_xl ; display it 
5999954 
ucb_bsy: 
bbc #ucb$v_bsy, ucb$l_sts(ri11), - ; exit doing nothing if the 
ucb_act_nop ; UCB is not bus 
addl ril, r2 ; else locate cell to return 
ucb_act_xl_neq: 
do_column_entry xl_neq, jmp ; display that entry 
peereeeeeee 
ucb_clstyp: 3; return device class / type 
2g 40 AB QA movzbl ucb$b_devclass(ri1), r2 ; return device class 
5 41 AB QA movzbl ucb$b_de or de r3 ; and device type 
26 brb ucb_ret_exbytes 3; go join common code 


,teeereee 
ucb_cpid: if appropriate, return PID charged for UCB creation 
bitl  &<dev$m_mbx ! devén_net>, ~ ; is this a mailbox or a 


38 AB 00102000 8F 03 ¢ 
ucb$l_devchar(r ; metwork device 


ee el etd el ee el eld el eel eel eel eel eels eel eel eel eel eel el eel eel eel el el el el el eel el cl eel eel el eel ll cel cel cel celts elt eld eel eel cl ell alld cea el ld els cel ls els ells lls 
0.009.009.0900 09.09 09 09 00 0D 09 09.09 09 CD OD G9 C9 CO CD C9 OD CD 09 OD CD Cd CD C0 CD OD OD 9 GD OD OD CD.0D 0D CD CD GD. G9 00.00.00 00 00 0000 00 00 0D 000000 
POPPA AOAAAAMIUIVNUIUUIUUIUIUIE BB BEE EEE BWW AAAI WIIROPOPONONONONOPONOn 2 SS 
OO NAME AIO OO NAULS WN OOO NOAU ES WWN QO OONAUE WN OOO NOUS WIN OOO NOUE 


OOS 


OWMowan 


at 
all other registers must be preserved 
| 


DEVI i i 
° Ue Display device epte structure 


show_ucb tables on rout ines "$23 Epe| be §3:98:75 SDA VSRCIDEVICE MARS cate (33 


SDA.SRCIDEVICE MAR; 1 12) 


Ne) 


06 beql ucb_act_no ; if not, assume no PID charged 
52 20 AB oF moval ag “epidert1), r2 ; else, return charged PID . 
5B. brb actt_xl ; using common code 
ucb_act_nop: 
50 Be clr r0 3 aane this call a nop 
5 rsb 3; return 


peeereerere 
ucb_duetim: appropriate, return interrupt due time 

bbc busts? tim ; branch if time-out not 
ueb$l, stsert1) ucb_ 73°. nop expected 
moval ucb$l “duet im(ri1), 
r 


: lse return due time 
ucb_act_xl 3 


oin common code 


| 
| 
saaeaeeeeee 
ucb_ipls: 3 return fork / device IPL 
52 QB AB OA movzbl ucb$b_fiplirl1), rg ; return fork IPL 
5 —E AB 9A movzbl ucb$b_dipl(ri1), r ; and device IPL 
ucb_ret_2xbytes: 
$fao_s 
94 =r2,° 
95 b2 =r 
> rsb return 
3 geekeee 
ucb_ lnm 


two values as requested 


etree = uch two bytes, 
outbuf = ” 
outlen = (r7), = 


WN SO OONOAUE WN 0 ONO UO 
ee 


OOO OCWOWOODOOO OOO NNN 


NNUOMM OOO OOO NNVNNMUOOM 9 OA OA 3 @§ O99 WOW WD VWI 9 SF OOOO VIII Oo 


PHBH PAMAIMIWIMIMIUMAPDINDPININN — “QQOCCCCQCCCOMMMMMMMMMMMMMOOOVIVTVTVTVTVTVTIOINO 
ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee a ee ee ee ee ee ee ee ee ee ey 


05 $ : 
: 
40 AB AO BF 91 00 cmpb #dc$_ mailbox, - ; is this a mailbox? 
901 ucbS6. develass(r11) 
eo ih On6 bneq ucb_a ; branch if not a mailbox 
52 74 AB OD 3 moval uepst. tsgesrtrtt). r2 ; get logical nene pointer 
6 D 904 tstl ( iis something there? 
C 1 905 beql ucb_act_nop ; branch if nothing there 
9 $ make =syabol = ; else, 
9 LNM, (r2) : make a syabel and 
oO 1 On8 brb ucb_act_xl ; display 
319 pteeeereres 
911 ucb_lockid: if sengidle, return allocation lock id 
A9 3C AB «600-Ctsé#é=#+1 818 bbc ideysv 3 branch if not a ¢luster 
91 ucb$l Yacuchar2(r11), ucb_act _nop : accessible devi §¢ 
52 20 AB. DE aie vrs novel ucb$l-lockid(r11), r2 ; else return lock 
ucb_ac 
$16 “da. column_entry xl, jmp 
91 peeeeeeeee 
3) ucb_mcsid: 
40 AB Al BF O91 cmpb #dc$_jou ; is this a journal device? 
g ucb$B sBevetais(et1) | 
S 7 9 § bneq ucb_a ; branch if not a journal dev. 
52. 0084 cB of 9 moval ucbSt “fates mesid(ril), r2 : else. return eee er CSID | 
E 1 3 : brb ucb_at 3 ng common code 
926 seeeeereere 


mo ri,(r2) 
ASSUME ORBSL_OWNER EQ 0 
10$: $fao.s - 3; convert UIC to octal 
ctrstr = ucb_uic_cstri, - 
outbuf = (r7), = 
outlen = (r7), 
pl = orb$w “uiegroup(r2) 
p2 = ,0rbsw “uicmember(r25 
tstl (sp)+ ; clean the stack 
rsb 3; return 


8E 
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47 1927 ucb_onlcnt 
40 AB i 3} 2 8 gneb odss. yas Ss He devclass(ri1) ; fs this otek day teet 
3 branc not a dis 
52 OOAE Se 3 4 movab i ay oALenECr11), r2 ; else get ont ine count addr. 
FF orw ucb_att_u : and display i 
peeeeeerere 
2 orb_owner: ; attempt to format owner UIC 
7E D4 clrl -(sp) ; storage for the UIC from ORB 
a =. 2 : mov l sp,re ; save address for Later 
51 1C AB OD movl ucb$l_orb(r11),r1 3 get real 3°85! aparece 
oF 1 5 beql 10$ ; display [0,0] ile 
6 etmem orb$l_owner(r1) ; get the uner 
0350 €9 6 Loc ; display 0] WA unaccessable 
62 51 00 ° vl 3; save for gfaa below 
6 
6 
6 
6 
6 
6 
8 
8 
8 


ogo 
wn 


;eeeeeee 

ucb_pdt: 
movl 4 —pdt(ri1), 3 : 
beql b_act_nop p-2 : 
getmem ucbSb type(r3) : 

#<dynSe_ scs at ~ : 


+ dyn$¢ Ty « e 
bneq ucb_act_n ; Wreath” if not really a PDT 
moval ucbSt_ patcrti), r2 ; get address of PDT Jointer 


make_symb 


53 0084 CB oD : pet ps pase ibie PDT address 
2E ; Branch none 

et A Je sub-type of PDT 

: 


51 0560 8F B61 ing pointed to really 


1D 
52 0084 CB. ODE 


WANA N.AAI AANA AAI ALAIN 


OP YS SF OOOWMMaD0 
NOM T S SP NLOOOO NTO S PS VNIOM MM OM SF COCO Oo NUIT HO OOM  VUIMIMUNO DN 


a a a a ee a ad dd 
WODODOOOOODOOOOOODOODOODOOOODOOOODOODOVOOODOVODOVOODOOOVOOODOOOOOOOOOOOO 
BOD O99 SINISE A AA AAA AA AMM EE PPP LL EE 


WR OOO NIAUE WN SO OOD NIA UNE WN S OOO NAME WIN SO OD NOAU EWN OOONOUS WO 
o 
3 
cv 
=< 


OT, (r2) ; make a symbol and 
FF73 = 311 : brw ucb_act_xl ; display it 
i ucb_act_nop_a: 
50 d4 B clrt r0 
05 : rsb 
C peearerere 
C ucb_cddb: 
3C AB OCOOS;Stsé€E*Y C bbc os typ a ucbSl _devchar2(r11),- 
F8 C 3; branch if device is not mscp serve 
52 O0BC CB. DE C moval uepsts “cadbtF 1), r2 3 get address of CDDB pointer 
C make Sh + - 
C (r2) 3 aehe ,- syabot and 
FFE 31 4 brw a act. xl 3; display 
E petreerere 
E ucb _2pcddb: 
3¢C AB OCOOS:Stsé€€#*Y E bbc es ys ucbst _devchar2(r11),- 
06 E ; branch if device is not mscp serve 
52 00CO CB. DE E moval uch fc 2p. meddb(r11), r2 ; alternate CDDB address 


vO4=060 


FF28 


0081 CB 
AF 


7E 
52. SE 


55s BE 


3C AB 9 
52 56 AB 


40 AB AO 8F 


38 AB 00280000 8F 
3E 

5234 AB 

FE8C 


Display device 
show_ucb tables 


8 E 984 
1 E 3 5 
F 

FO 1989 

31 24 9 } 

& 9 

4 2 0 
95 $408 1992 
3 Sc0c 1998 
D4 24 
dO 


ogo 
nro 


PPPNNPPONON | | = = = 2DOOOO0O 


POPOA AMM MMO NINNOOOO NNNIIM SF ODOOOOST OOS 99S FPOUMUWWOMODBOWOMOUCcomMmo 


05 


E1 
DE 


PPP PSS SSeS SS SSS SF IS SSS 
NAOUEWN 2 OODNAUEWN OC OONOULWN 2 ODONAONEWN OOO NOUSE 


600909 09098 SINISE AI EEE EE 
PAAAA AAI AAI GEPODININIPINPIPININID 2 2 OS I SS (DOOD OOCOOCOCOCVOOVOOOONO 


w 
— 

aa 

>>> 

ano 

PORPOPOPOPONOPONONONONONOPONONONONONONONINIPONOPONONONNONOPOPONONONONONUNO NUP 2 


©O-woc 


data structure 16=SEP-1 
ia act on routines met 7 Bf: 95:72 
tstl (r2) 
beql web act _nop_a 
make_symbol = 
cf CODB, (r2) 
brw act xl 
,eeeeeeeee 
ucb deed * 
stb ucb$b_ertmax(r11) 
beql ucb_act_nop_a 
clrl -(sp) 
movl sp, r2 
$fao.s - 
ctrstr = ucb_test_retry_fao, - 
outbuf = (r7J, - 
outlen = (r2), 
pl = ucb$b_ ertmax(r11) 
incl (sp) 
subl (sp)+, r5 
$fao.s - 
ctrstr = ucb_retry_fao, - 
outbuf = (r7J, = 
er = (r?), = 
2 = ats wertcnt(ri1), 
» = ucb$b_ertmax(r11) 
rs 


seeeeeerereee 


ucb_rwaitcnt: 
bbc 


moval 


USD 


a gt cnt ucb$l_devchar2(r11), 


ucb_a 
ucbSw. raaitent(ri1), r2 


make_symbol - 


ucb_act_xw: 


RWAITCNT, (r2) 


“do_column_entry xw,jmp 


peeeeeeere 
ucb_svpn: 
cmpb 


beql 
moval 
brw 


;eeeeere 
ucb_vcb: 
bitl 


beat 


al 
nake _SY wrt - 


brw 


peerereere 


#dc$_mailbox, - 
ucbS6. -develass(r11) 
ucb_a p_b 
ucbSL. =spntF1), r2 
ucb_att_xl_neq 


#<dev$m_mnt ! dev$m_dmt>, 
ucb$l Gevchar (rit) 
ucb_act_n » 

ucb$L “yebert », re 


B, (r2) 
ucb_act_xl 


X/VM 
SDA. 
3 is 
; bra 
mak 
dis 


MS Macro V04-00 e 44 DE\ 
SRCIDEVICE MARS 1 oe 2) v0. 
there a soesnee ddb 

anch 1" ne — 

ea Ae pe and 

spla 


is there a retry max? 

quit now, if no retry max 
make a little room on stack 
save its address 


determine size of 
retry max 


; add one to retry max size 
; reduce retry cnt. size by that 


now produce the whole value 


then return 


branch if device is not mscp serve 
get address of wait count 


make a symbol and 


don't have SVPN's) 
branch if Saha 

get SVPN address 
display it if non-zero 


is the device mounted? 
branch if not mounted 


else 
sake & symbol and 


is this a mailbox? (they 
and dlep ay it 
| 


Be ite 
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4AG 41 ucb_2pddb: 
1D 3C AB O04~StsC#EE rey ‘3 es bbc ng 2p, ucb$l_devchar2(ri1), = ; _—— a device is not 
ucb_act_no 3; du athe 
52 OOA0 CB DE 24A9 2044 moval ucbSt dp ddB(r11), r2 3 Secondary DDB address 
SAE 45 meke_sympel - 
tay re. P_DDB, (r2) ; make a symbol and 
FDEB = 31 rh iB brw ucB_act_xl_neq ; display it 
4C6 49 ucb_act_nop_b: 
50 4 S4ce 3080" “ctrl 0 
05 24C 51 rsb 
4C 52 


M14 
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bts 33 -sbttl show_ioq, Display 1/0 queue for device 
434 § ; 
168 : 3 show_ioq 
409 35 ; Display the IRPs and/or CDRP's (if mscp served) in the 1/0 queues 
rh? | ¢ ; associated with a specified device. 
4¢9 6¢ 3; Inputs: 
4C9 63 ; 
4¢9 64 ; 4(ap) = Address of UCB in local storage 
168 92 5 8(ap) = Actual address of UCB 
4C9 69 peec 
409 2068 eenabl sb 
4C9 34 
4C9 2070 show_iog: 
O1FC re 44 sword “m<r2,r3,r4,r5,r6,r7,r8> 
52 04 AC DO 24CB 698 mov l 4(ap),r2 :_address of UCB 
34 3C A2 05 =~ «=©E1 So h4CF 802074 bbc #dev$v_mscp,ucb$l_devchar2(r2) ,5$ 
404 2075 : only 1 queue if not mscp served 
57 00000471'EF 9E 2404 2076 movab cddb,r7 3; address of Class Driver Data Block 
408 077 etmem @ucb$l_cddb(r2),(r7),#cddb$c_length ; rea 
4D 50 E9 246EE 2078 Loc rd, :; branch if cannot read entire CDDB 
54 O0BC C2 00 C1 24F1 2079 addl3 Scodesl_corpart -ycbS| cddbire) .ré ; Get real address of cdrp q 
54 67 D1 24F7 2080 cmpl cddb$l_cdrpqfl(r7),r4  ; Empty CDRP queue? 
45 12 246FA 2081 bneq 10$ : branch if not empty 
54 O0BC C2 3C Ci 24FC 413 4$: addl\3 «- #cddb$l_rstrtgqfl,ucb$l_cddb(r2),r4 ; Get real address of restart qu 
54 3C A? D1 2502 B38 cmpl ddb$l_rstrtqfl(r7),.r4 ; Empty restart queue 
50 12 2506 2084 bneq 0$ 3; branch if not cnoty 
54 08 AC 0000004C 8F Ci 2508 2085 5$: addl\3 = #ucb$L tog/) Bt ap) .r6 ; Get real address of queue header 
54 4C A2 Di 2511 2086 cmp ucb$l_Togfl(r2),r4 ; Empty i/o queue? 
12 2515 2087 bneq 7$ ;_Branch if not 
1F 64 A2.— 08 €E€0 2517 2088 bbs #ucb$v_bsy,ucb$w_sts(r2),7$ ; Branch if have IRP 
00000577'EF 95 251C 2089 tstb gyeue Aatoapty : if 6 all Queues are empty 
1A = 12-=— 2522 = 2090 bneq $ ; if 1 then at least 1 queue was not empty 
524 2091 skip 1 
52D O36 print 0,<!_*** 1/0 request queue is empty ***> 
53A 209 ret 
53B 2094 
538 954 7$: brw 50$ 3 process io request queue 
375 38 8$: brw 90$ 3; clear queue flag and return 
re O36 3 Queue - Class Driver Request Packet Queue (CDRP) 
541 2100 10s: movl cddb$l_cdrpqfl(r7),r3  ; Get address of first entry in queue 
re 101 movl #1,°6 ; Set state to current 
47 21 § movl 8(ap).r8 3 pass actual address of ucb in r8 
54B 2103 20$ bsbw print_cdrp ; display the contents of the cdrp 
ae 104 movl cgrppttatl (rs) .r3 3; advance to next entry in queue 
55 105 cmpl r3,r4 ; check to see if another entry exists 
54 21 $ beql $ ; if points back to beginning no more 
: 1 brb 208 3 process this entry in queue 
22 103 : Queue - Restarted Class Driver Request Packet Queue (RSTRTQ) 


ee 
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53 3C A? OO 8 2111 308: mov | eget rotatettir?) 93 ; Get first entry in queue 
56 02 OD C 211 mov #2,76 ; State is restart 
58 08 AC Y F 211 mov l 8(ap),r8 ; pass actual address of ucb in r8 
28 63 2114 40$ bsbw print_cdrp ; Call routine to display this cdrp 
23 g DO 98 115 movl egrppttatl(rs) 3 ; Advance to next entry in queue 
4 D1 6 118 cmol r5,r4 ; Check to see if no more entries in queue 
FS i2 6C 211 bneq 40$ ; if eql branch to check next queue 
FF97) = 331 2$f 118 brw 5$ ; otherwise still more entries here to proce 
271 139 : Queue - Standard 10 Request Packet Queue (IRP) 
ar 95 2571 21 § 50s: tstb puget netenpty ; Check to see if anyone set this thee 
A 1s 577 21 bneq $ ; if 1 then yes so don't bother with it 
0366 3 579 2124 bsbw ueue_title ; print header for page (10 Request Queue) 
00000577"EF 01 90 257¢€ 2125 movb V.qusue notensty ; set flag to indicate queue was not empty 
OA 64 A208 ~=—E1_ = 2583) «2126 55S: bbc #ucb$v_bsy,ucb$Sw_sts(r2) ,60$ ; Branch if not busy 
53 58 A2 00 age 127 movl ucb$l_Trp(r2) ,r3 ; Address of current IRP 
5 4 58C 2128 mov #1,76 ; Indicate current IRP 
043E 0 $5 : 3 bsbw print_irp ; Print Line for current IRP 
53 4C A2 00 395 13 60$: movl ucb$l_iogfl(r2),r3 ; Get address of first IRP in queue 
56 D4 238 . § clrl r6 : Indicate not current IRP 
54 53 Di 2598 134 70$: cmpl r3,r4 : end of queue? 
08 13 2598 135 beql  90$ : Branch if so 
0430 30 2590 2136 bsbw print_irp : ar int IRP Line 
3 & 6S ong 137 movl prget raqtl irs) £8 ; Skip to next IRP in queue 
F311 33A3 138 brb 70 
00000577"EF 94 25A5 2140 90S: clrb queue_notempty ; clear flag before we are called again 
25AB 2141 status success , 
04 258 13 ret 
258 14 -dsabl lLsb 


V 
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: 148 ; -sbttl show_acpq, display acp queue 
BS 2147 ; 
: 138 3 show_acpq | 
B 150 ; Display the IRP queue associated with the ACP 
26 13] $ on the current volume. 
28 138 : Inputs: 
58 155 ; ap = address of VCB in local storage 
aes 5489 : 
28 138 . -enabl Lsb 
58 160 show_acpq: 
007C at 19) -word “m<r2,r3,r4,r5,r6> 
10 ag DS 2585 188 tstl vcb$l_aqb(ap) 3; Is there any AQB? 
0 12 25B8 2164 bneq 10$ ; Branch if so 
0188 31 goA 192 90$: brw 95$ 3 Exit 
52 O000041D'EF 9E 25BD 2167 10S: movab aqb,r2 
25€4 2168 etmem a@vcb$l_aqb(ap),(r2),#aqb$c_length ; Read entire AQB 
—E5 50 =€E9 206 199 Lbc r0,90$ 
ensure 
10 AC DD 2EB Vr) pugnt vcb$l_aqb(ap) 
s 
af? 178 print 1e<tate --- ACP Queue Block (AQB) !XL --=> 
s 
oc ag DS 260F 2175 tst agb$l_acppid(r2) : Is the XQP servicing this queue? 
5 13 2612 2176 beql 208 3; Branch if xQP 
$0 9 ol? ee freee @sch$gl_pcbvec,r3 ; Get address of PCB vector 
C ro, 
51 OC _A2 3 637 179 cvtwl eapst scppid(re) .ri ; Extract process index 
51 6341 DE 262B 2180 moval (r3)Crij,ri ; Point to PCB address entry 
oer 181 etmem (ri) ; Read PCB address 
39 50 9 2638 21 ¢ Loc r0,30$ 
53 O0000000'EF SE 26 1 movab_ buf fer,r3 
150 €9 ee ! : Fence pcb$t (name(r1),(r3),#16 3; Read 16-byte process name 
Cc r e 
bc Ag DD 265 188 pushl ogest_ocpptd(re) ; Process PID 
5 DD 2656 21 pushl ; Address of ASCIC string 
65 1 8 rint 1,<ACP requests are serviced by process '!AC whose PID is !XL> | 
0D 11 66 189 rb 36$ | 
13] 208: print 0,<ACP requests are serviced by the eXtended Qio Processor (XQP)> 
674 198 30$: skip | 
67D 2194 alloc 80 ; 80 byte string buffer 
7E 14 A2. QA ont 195 movzbl aaqb$b_status(r2),-(sp) ; ACP status 
E5046 CF OF 26 136 pushab acp_status ; Bit definition table 
00000000 ' EF Oe FB 2694 219 calls #2 Eranslate_bits ; Translate bits into names 
3 DD 2698 138 pushl = sp ; Address of string descriptor 
14 A DD 269D 219 pushl qb$b_status(r2) ; ACP status 
éAd 3200 print 2,<Status: KB !AS> | 
6AD 0 skip 
| 


—————— . - 
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| 
B print_colugns - 
B (r2), veb$l_aqb(ap), - 
5 aqb_column_T, aqb_column_2, aqb_column_3 | 
604 ski 1 | 
i oe DO 26DD mov aqb$l_acpaqfl(r2),r3 ; Get address of first IRP 
54 10 AC 2 Ci 26€ addl3 #aqb$t_acpafl.vcbSl_aqb(ap) .r4 Get real address of queuehead 
54 Di =26E cmpl r3,r4 ; Empty ACP queue? 
OE 12 26€ bneq 0 ; Branch if not 
6EA print 0,<!_*** ACP request queue is empty ***> 
04 ore ret 
ers 70$: ensure 8 
1 print 0,<!_!_!_!_ACP request queue> 
£30 print Oecrtatote ‘nepeneepannaiendneeenaees > | 
s 
026C 30 2733 bsbw irp_heading ; Print heading Line | 
56 64 4 $ clrl ré6 ; Indicate not current IRP 
54 53) «D1 «(8738 80S:  cmpl 3, ré ; End of queue? 
08 13 738 beqt 95$ : Branch if so 
0290 30 273D bsbw print_irp ; Print IRP Line 
53 65 dO my movl arpel. toatl tes) .r3 ; skip to next IRP 
3 ee re brb 80 
745 95$: status success | 
04 274C ret 
74D -dsabl tsb 
D -sbttl volume control block tables & action routines 


block displays. 
Action Routine Inputs: 


size of value section for this Teen 

address of a descriptor for a scratch string in 

which the FAO converted value is to be returned 
R11 base address of the local UCB copy 


es value from the COLUMN_LIST entr 
R7 


The following are all PRINT_COLUMNS action routines for the show_vcb 
Action Routine Outputs: | 
RO status 

lbs ==> use this entry 

lbc ==> skip this entry 

R1 = RS scratch 
all other registers must be preserved | 
i 

| 


> PRINT_COLUMNS tables for AQB display 


aqb_column_1: 
column_list - 
aqb$, 16, 8, 4, < - 


NN 
a 
oo 
PAI OTT ES BS BS BS BS BB NINN IAI I ROPPONGI 
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SSnune count>,b_mntcnt,ub>, =- 


aqb_column_2: 
column_list = 
agb$ 16, 8, 4, <= 
<<ach type>.aab type .0.14,10>, ~ 
<aACP class>,aqb_class,0>, - 


aqb_column_3: 
= column_list = ‘ 


agns. 16, 8 0 ” 
< Linkage>,(_Link xl_ne 


~ 
WO OONO US UNTO 


SN 
oOo DAAASAAO 
vcvocovrTuV7T79o 
Pp NNAAAAAOAAOOM 


>- 
a4 <chequest quéue>,( stpetl.q2>, - 
7¢D 75 
70D 6 peeerereree 
7CD 77 aqb_type: 
2 .15 AB 9A 27CD 78 movzbl aqb$b_acptype(ri1), r2 ; get ACP type 
53 E3€B CF 9E 2701 79 movab aqb_acptype, r i get translete table 
00000000 ' GF 18 706 0 = “translate_address 3; translate ACP class 
_. 9 70¢ 1 eql ; branch if translate failed 
52 50 D0 27DE ¢ mov l r0, r 3 sqtup translated string 
7€1 do_column_entry ac, jmp ; display translation 
7EA 9284 
52 15 AB 9E 27EA és 90$: movab aqb$b_acptype(ri1), r2 : else, get type address 
cee 36 do_column_entry ub, jmp ; just display the value 
7F7 38 peeeeereeee 
7F7 9 aqb_class: 
52 16 AB QA 27F7 90 movzbl gqpsb_cless(rit). r2 ; get ACP class 
13. 27FB 91 beql 90$ ; branch if none 
53 D88F CF 9E 27F 38 movab ddb_acpclass, r3 3; get translate table 
00000 ' GF 19 5° 9 sb g_frensiate_sédress ; translate ACP class 
1 0 94 eql 0$ ; branch if translate failed 
52 0 dO 280A 95 mov r0, r ; setup translated string 
sp} 38 do_column_entry ac, jmp ; display translation 
52 13 AB 9E 2816 98 90S: movab ddb$b_acpclass(r11), r2 ; else, get class address 
BIA 99 do_column_entry ub, jmp ; just display the value 
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-sbttl print _cdrp, print a single CDRP block 


: -enabl Lsb 
§ : Subroutine to print information for a single CDRP block 
8 ; Inputs: 
10 ; r3 = Dump address of CDRP block 
1) 3 re = 2, if restarted CDRP, 1 if current CDRP 
; r8 = Actual address o 
Actual add f ucB 
13 ; Outputs: 
| 1§ 3 r5 = Address of CDRP in local storage 
8 0 print_cdrp: 
1 ensure 3 
56 OD B ¢ push r6 ; save ré6 
56 53 -FFFFFFAO 8F C1 3D addl #cdrp$l_iogfl,r3,r6 : get start of cdrp at most negative offset 
55 Q00000289"EF 9E 2845 2324 movab cdr per ; get address of local cdrp 
84C 2325 getmem (r6),(r5),#cdrp_length ; read entire CDRP 
6 a | 85D § r) r6 : restore r6 
03 50 4 560 et s r0,5$ 3; check status 
OOFB 1 286 8 brw 90$ 3; return 
55 FFFFFFAO 8F C2 2866 9 5$: subl2 #cdrp$l_ioqfl.r5 ; actual start of CDRP 
C AS 8 01 360 0 cmpl r8,cdrp$l_ucb(r5) : check to see if this request is from this 
03 13 2871 1 beql 10$ : if equal yes so process it 
O&EB 31 ae § brw 0$ 3; return 
00000577°EF 95 76 10$: tstb ueue_notempty ; Check to see if anyone set this sieg 
OA 1 87C 4 bneq 13§ ; If. 1 then yes so don't bother with it 
00E1 3 87E 5 bsbw ueue_title ; Otherwise ay the header for page 
00000577'EF 1 0 2881 § movb 1,queue_notempty ; set flag to say this queue was not empty 
CA AS DD 2888 15$: pushl cdrp$w_sts(r 3; request status 
C4 AS DD 2888 8 pushl cdrp$l_iosb(r5) ; address of I0SB 
BO AS DD oa pushl cdrp$l-ast(r5) ; address of AST routine 
C2 AS DD 40 pushl cdrp$b_efn(r5) ; Event flag number 
8 DD 2894 41 pushl cdrp$l_wind(r5) ; Address of WCB 
COA DD 2897 $5 pushl cdrp$w_func(r5) ; Function code 
C8 AS) ODD 9A 4 pushl cdrp$w_chan(r5) ; Channel number 
50 ABAS QO - 5. 9 44 extzv #irpsy mode ,#irp$s_mode,cdrp$b_rmod(r5),r0 
55534548 8F DD 45 pushl #*a'KESu' : PossTble user modes 
6E40 3=o9F m4 pushab (sp)Cr0 ; Address of string 
01 OD 4 pushl ; Length of string 
AC A DD rt pushl egrest ptetes) : Process identification 
5 DD 4 pushl fr ; Address of CDRP 
00000043 8F DD 50 pushl #*a'C' ; String containing space 
‘ DD 1 pushl 5s ; Address of string 
DD § pushl # ; Length of string 
56 1 o1 capl #1,°6 ; check if current CDRP 
Foo $ moult 3 R' .8(sp) t Plag current CDRP being done 
- - . curren n 
techs Potemmentcraste Bi § 208: or nt 15< tADEe orxe txt tape? fxg kw XL 1b0B XL IXL EXWw> 


oEyIEE, 


a” 
F 


MPO MUN OPOM no mn 
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Display device data structures 
print _cdrp, print a single CDRP block -SEP-1984 


save a few registers now. 


LJ 
—~ 


SM NIM ENO OA DM MIWO WLIO OPM o > NNN 
090909000900 09098 SI NIN NINN NIN IO PO AAOOAOOOOUNM 
NOUS WN CO OOONAUES WN OWOONOULS WOOO —- 


CDOOOOOOOODODOOODODOOOOOOOO 
POU FWWIWIWIWINIININ | | —OOOCO™MM™MIUoITTCF 


oO 
oO 
of 


16-SEP-1984 


r2, =(sp) 
i 


cdrp_dutuflags 
Gor erene late bits 
ra 


r2) 
(r2) 
cdrp$w_sts(r5),-(sp) 
request_status 
#2,translate_bits 


$ 
null ascic 


#io$v_fcode, #io$s_fcode 


cdrp$w_func(r5), r2 
io function, r 
gagranslate_address 


r0, (sp) 
$4<1 1AC IAS!4#!4 !AS> 


#184,sp 
(sp)+, r2 
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° ; anot 
cdrp$l_dutuflags(r5),-(sp) 


D Be Se Se Be Be Be Be Se oe 
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Then we will allocate stack space for two output 
Translate the class driver's flags field, ; 
cdrp, and the function code for the request. Then display. 


he status field of the 


ave some registers 
0 oyte output buffer for request status 
er buffer of 80 bytes 

3; cdrp flags 
bit definition table 
translate bits to names 
push the address of descriptor 
push egscrigtor for request status 
push size of this buffer 
request status 
bit definition table 
translate bits to names 
address of string descriptor 
assume function will not translate 


get function code 

et translation table 

ranslate function to text 
branch if translate failed 
setup translated function 
print translated information 
advance 
deallocate translate buffers 
restore saved registers 
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2 6 -sbttl print_irp, print a single IRP block 
9 91 ° 
9 3 eenabl sb 
$e Be : Subroutine to print information for a single IRP block 
3 38 : Inputs: 
36 38 : r3 = Dune address of IRP +4 
96 a4 3 r6 = 1 if current IRP, else 0 if pending 
$6 : ° : Outputs: 
96 4 g : rS = Address of IRP in local storage 
96 404 ; 
96 4 5 queue_title: 
38 4 8 ensure 10 
97A 26 print <' tlt !_1/0 request queue> 
4 44 rt print oft fff eon eeeeeeeoeocececa 
17 3C AZ 05 EO 3990 2412 neadtt®, #dev$v_mscp,ucb$l_devchar2(r2) .cdrp_heading 
r n 
9A 414 " aria 0,<STATE IRP PID MODE CHAN FUNC wCB EFN AST 
QAF 2415 skip 1 
05 + £18 999$: rsb 
989 rt cdrp_heading: 
989 241 print 0,<STATE CDRP/IRP PID MODE CHAN’ FUNC WCB EFN AST 
9C6 2420 skip 1 
05 act ri 1 rsb 
9D 6 : print_irp: 
9D 424 ensure 3 
55 QOOO01CS'EF 9E 29 425 movab i" r5 
SEF 26 § etmem (r35 (r5),#irp$c_length ; read entire IRP 
550 €9 Ado 4 be = 0, 9998 
gh AS DD 2A 4 8 pushl irp$w_sts(r5) 3 request status 
4 AS DD 2A 4 pusht irp$l_iosb(r5) ; address of 10SB 
10 AS) DD 2A 430 pushl irp$l-ast(r5) ; address of AST routine AR 
22 A DDB 2A0C 2431 pushl irp$b_efn(r5) ; Event flag number 
18 A DD 2A0F 24 § pushl irp$l-wind(rS) 3 Address of WCB BA 
§ A OD 2A 4 pushl irp$w_func(r5) ; Function code BI 
A DD 2Al 434 pushl irp$w_chan(r5) ; Channel number BU 
50 0B AS, 02 EF gA1B 2435 extzv #irp$i node .irp$s_mode, irp$b_rmod(r5) .r0 BU 
55534548 8F D Alt 4 § pushl *a'keSu' ; PosSible user modes CA 
6E40 F 2A 4 pushab (sp)(r ; Address of string cB 
01 DD 2A2e? 246 } pushl ; Length of strin cB 
0c a DD 2A29 246 pushl irp$l_pid(r5) :; Process identification co 
DD 2A2eC 244 pushl fr 3; Address of IRP cD 
00000050 8F DD 2A . 44 pushl #*a'P' ; String containing space cD 
‘ DD 2A 44 pushl ; Address of string co 
) a Su ushl Ht ; Length of string co 
$ b3 A 44a tstl r ; check if current IRP co 
ASA 2445 beql 208 : branch if not co 


sompreuninenieansannnmess 4 
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08 AE 00000043 8F DO 2A3 rt moyl #*a'C' ,8(sp) ; Flag current IRP being done 
Abt a4 208: print 15,< !AD!+ xt IxL fAD!+  ixw IXW IML! 'XL IML XW 
7E 52 7D nS} tt movq r2, =(sp) 3 gave some registers 
A5S& 24 alloc ; 80 byte output buffer 
7E 2A AS HS Aes 4 movzwl irp$w_sts(r5),-(sp) i request syetus 
DFAS CF F QA 4 pushab request status ; bit definition table | 
00000000" EF 2 FB 2A 4 calls #2,tranSlate_bits ; translate bits to names 
E D 2A 454 push sp ; address of string descriptor 
aoe > Sha F 2A? 455 pushab null_ascic ; assume function will not translate 
52. 20 A 6 O EF @2A7A 24 § extzv #io$v_fcode, #io$s_fcode, - 
A t2 irp$w_func(r5), r2 ; get function code 
53 006 CF 9 A 4 8 movab o. function, r3 ; get translation table 
00000000'GF 1 A 45 1” gagranslate_address ; translate function to text 
F 1 A 460 eql 3$ ; branch if translate failed 
6E DO 2A8D 2461 mov | r0, (ve) 3; setup translated function 
nee rhe 33$ print ee<t at C !AS> 3; print translated information 
s 
5E 00000058 8F CO 2AA6 2464 add #88,sp ; deallocate translate buffer 
52 8E) 7D aos <e2 mova (sps+, r2 ; restore saved registers 
05 ney rtf 90S: rsb 
-dsa s 
AB1 2469 dsabl lsb 
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-sbttl show_vcb, Display Volume Control Block (VvCB) 


show_vcb 

Display the Volume Control Block (VCB) 
Inputs: 

ap = Address of UCB in local storage 


show _vcb: 
sword “m<r2,r3,74,r5,r11> 
tstl ye bSl_veb (ap) i any vcB ior this unit? 
bneq 10$ ; Branch if s 
90$: Status success 
ret 


10$: bbs #dev$v_spl,ucb$l -devchar(ap), 90$ ; ignore VCB for 
3 spooled devices (wrong usage) 


movab vcb,r2 

reese S duchst -vcb(ap),(r2),a#vcb$c_length ; read entire VCB 
cmpb veb$b _type(r2) ,Adyn$c_vcb Check if block valid 
bneq 90$ , 3; Exit if not valid type 
ensure 12 

s P 1 

pushl uc th ney 

or jas {-< --- Volume Control Block (VCB) !XL ===> 

Skip 

alloc bo ; 80 byte output buffer 
movl sp, rll 3 save descriptor address 


; use eifterent rages stratagies for different VCB types 
bbe io net, ucb$l_devchar(ap), 20$ 


brw vcb_n 
20$: dispatch vucbSb weocdisios type=B, prefix=dc$_, 


<disk,Vcb_dis 
eee tap 4 
<journal,vcb ournel> - 


status succevs 
ret 


bc #dev$v :; Is this a foreign mounted disk? 
ucbSt MBeychar ap). 208 
brw gn ; Branch if foreign. 

208: pushal ve St voleknam(r2) ; Address of volume lock name 
pushl ; Length of volume lock name 
pushal yrestvolnane(re) ; Address of volume name 
pushl @# ; Length of volume name 


SDA.SRCIJDEVICE.MAR; 1 
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C9E 8 print 2,<Volume: !AD Lock name: !AF> 
5E 38 0 2CAB mov ril, sp ; Setup scratch area 
7E 3 & A 2CA 0 movzbl vcb$b_status(r2), -(sp) : Volume status 
dB F OF 2CB 1 pushab vgb_disk status ; Bit definition table 
00000000 ' EF 2 FB 2cB ¢ calls #2, translate_bits ; Translate bits to names 
5 DD 2CBD pushl sp ; Address of output descriptor 
0B A DD 2CBF 4 pushl ycbee statusirg) 
cC2 5 print <Status: 'XB !AS> 
5E 3 0 2ccr § movl r{i sp ; Setup scratch area 
7E S3A A be 5 movzbl vcb$b_status2(r2), -(sp): Volume status, second byte 
DB46 CF OF 2CD 5 8 pushab vcb_disk_status ; Bit definition table 
00000000’ EF ge FB 2CDA calls #2, translate_bits ; Translate bits to names 
3 DD cet 40 pushl sp ; Address of output descriptor 
S3 A DD 2ce 4] pushl cb$b_status2(r2) 
re 246 print 2, <Status : 'XB !AS> 
CF 54 skip 
CFC 2544 print_columns - 
CFC 2545 r2), ucb$l_vcblap), - 
CFC 288 veb_disk_col_1, vcb_disk_col_2, vcb_disk_col_3 
0129 31 2DIA 254 brw vcb_show_acpq 
DID 2548 
DID 2549 enable Lsb 
DID 2550 vcb_tape: 
DID 2551 vcb_foreign: 
14 A2. DF 2D1D 226 pushal vcb$t_volname(r2) ; Address of volume name 
0c DD 2d 8 55 pushl #12 3; Length of volume name 
D 554 rint 1,<Volume: !AD> 
22 38 AC 3«618~=6E1 CDF =e 555 be #dev$v_for, - : Is this a foreign mounted volume? 
4 r 228 “a ycbSl_devchar (ap), 20$ ; Branch if not foreign. 
5 
b3D 558 print 0,<!_!_!_Volume is foreign mounted> 
D4A 2559 skip 1 
OOFO 31 2053 2560 brw vcb_show_acpq :; Go try to do AQB, ha ha. 
5B 00 43 561 20$: mov | r1i 3; Setup scratch area 
A2 9A 2Dd5 266 movzbl veb$b_status(r2), -(sp) ; Volume status 
DAEF CF 9F 2D5D 256 pushab yeb_.tape status : Bit definition table 
00000000 ' EF 92 FB 2061 2564 calls #2, translate_bits ; Translate bits to names 
E DD 2068 2565 pushl = sp ; Address of output descriptor 
0B A2 DD 2D6A 206 pushl gcbee steturic®) 
D6D 256 print <Status: !4xXB !AS> 
5E 8 0 2D7A 208 mov l rll, sp ; Setup scratch area 
7E C 2070 +4 movzwl vcb$w_mode(r2), -(sp) ; Volume operating mode 
DB13 CF 9F 2081 2570 pushab vcb_tape_mode ; Bit definition table 
00000000 ' EF ge FB 2085 ya! calls #2, translate_bits ; Translate bits to names 
3 DD 2Dd8C i pushl = sp 3; Address of output descriptor 
2c A DD 2d8 57 pushl cb$w_mode(r2) 
D9 574 print 2, <Rode '4XW !AS> 
D9 575 skip 
DA 2/8 print_columns - 
DA? 257 (r2), ucb$l_vcblap), - 
DA? 278 vcb_tape_col_1, vcb_tape_col_2, vcb_tape_col_3 
OO7E 31 +34 144 brw vcb_show_acpq 
dC 581 disable sb 
DC 5 § 
DC 5835 vcb_net: 
dC 584 print_columns - 
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be ; ek detest” ag t l_2, veb_net_col_3 
v » ve _ne 0 
005d =«31 43 5 brw vcb_show_acpq ” i ist 
DEO : veb_journal: 
14 A2 DF 2DE9 9 pushal popes vetnenetre? ; Address of journalname 
OC DD 2DdEC 23 pushl #1 3; Length of journal name 
DEE 35 print ; <Journal name: !AD> 
5E 38 D DFB 259 movl 3; Setup scratch are 
7E 4A D 4a 23¢ mov l veb$ ent char(r2),-(sp): Journal characteristics 
,08 2CF 9F 2E0 95 pushab r,- Surnal_char 3; Bit definition table 
00000000' EF be fa ER6 38 calls . ranslate_bits ; Translate bits to names 
3 DD 2E0D 9 pushl ; Address of output descriptor 
24 A DD 2E0F 98 pushl veb$l _jnl char(r2) 
fie 238 print 2. <Characteristics: !XL !AS> 
E 601 print. oo Se - 
E o0e (r2), ucb$l -ycb(a ) 
ee? tt veb _jnt_ col_1, ve “fat. col_2, veb_jnl_col_3 
F768 CF 62 FA Ee $08 mn, catty (r2),sh Displ ACP (if ) 
rc), : 
fA size Sane show_acpq splay queue any 
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5? 19 -sbttl volume control block tables & action routines 
E 1]; The following are all PRINT_COLUMNS action routines for the show_vcb 
; o1¢ : block displays. 
é a : Action Routine Inputs: 
E 218 ; Re value from the COLUMN_LIST gotry 
E 617 ; R size of value section for this item 
E 213 ; R? address of a descriptor for a scratch string in 
E 619 ; which the FAO converted value is to be returned 
: ° : R11 base address of the local UCB copy 

? : Action Routine Outputs: 

624 : RO status 

625 ; lbs ==> use this entry 

626 ; lbc ==> skip this entry 

627 ; R1 = RS scratch 

: all other registers must be preserved 

é 

é3 ; PRINT_COLUMNS tables for disk VCB displays 


veb_disk_col_1: 
column_list - 
vcb$, 16, 8, 4, <- 
<<Mount count>,w_mcount,uw>, = 
<<Transactions>,w_trans,uw>, - 
<<Free blocks>,(_Tree,u > - 
<<window size>,b-window,ub>, - 
<<Vol. lock I1D>,T_vollkid,x(_neq>, - 
<<Block. Lock 1D>7l_blockid, xl_neq>, - 


veb_disk_col_2: 
column_list - 

veb$, 16, 8, 4, < = 
<<Re(. volume>.w_rvn,uw>, - 
<<Max. files>,( maxfiles.ul>, - 
<<Rsvd. files>,b_resfiles,ub>, - 
<<Cluster size>,w cluster,uw>, - 
<<Def. extend sz.5,w_extend,uw>, - 
<<Recore size>,w_recordsz,uw>, - 


veb_disk_col_3: 
column_list - 

veb$, 16, 8, 0, < - 

<<AQB address>. l_aqb,xl>, - 

<<RVT address>,l_rvt,xl>, - 

<<FCB queue>,l_fcbfl,q2>, - 

tcb xl_neqg>, - 

<<Quota cache>;|_quocache,xl_neq>, - 
<<Cache blk.>,(_Eache,xl_neqs, - 
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ata s 
Lock 


core 


3 PRINT_COLUMNS tables for tape VCB displays 


vcb_tape_col_1: 

Colufin_list = 
veb$, 16, 8, 4, < = 
<<Transactions>,w_ trans,uw>, - 
<<Start record>,l-st record, ul>, - 
<<Tapemark count>;b_tm,ub>, = 


tolumn_ a - 

16, 8, 
ol ee a cur. rvn,ub>, - 
<<Tape vol. ListS,l_mvl,xl_neg>, - 


vcb_tape_col_3: 

Column_list = 
vcb$ Ss Be 
<<AQB saiveies l ~2ab xl? 
<<Virt. pg. queue>, L pfl q2> 
69 <<Blocked queue>, L_ “block fl 


; 
5 
: 
§ 
$ 
; 
vcb_tape_col_2: 
§ 
3 
; 
8 


na2> - 


; PRINT_COLUMNS tables for network VCB displays 


veb_net_col_1: 
~colimn_ ates - 
16, 8, < 
ccTransactionss.w, trans, uw>, = 


veb_net_col_2: 
“column_ ates - 
16, 8, 4,<- 
<<nount Count>,w_mcount ,uw>, - 


vcb_net_col_3: 
“column_ goby: - 


8, 0, 
<cAds Modreses’ l ae sid, 
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>; PRINT COLUMNS tables for journal VCB displays 


>>>r>r 
OOOO 


veb_jnl_col_1: 
“column. list - 
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veb$, 16, 8, 4, < = 
<<Copies>, w_jnl cop.uw>, * 
tata _jnlimask,xl>, = 


veb_jnt_ 4 2: 
olimn_list - 
vcb$, 16, 8, 4, 
<<Access soles .h. nl _node,xb>, = 
“adh address>,l_jnl_jfta,xl>, = 


veb_jnl_col_3: 
“colimn_list = 
veb$, 16, 8, 0, 
<<AQ8 address>, t “oad. xl>, = 
~ address>, l_jnl_ jmt.xl>, ~ 
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show _ 


B 16 
e data structures 16-SEP-1984 ¢ Bt: 98:7 
splay Class Driver Data Blo 5-SEP-'984 


show_ciddb, Display Class Driver Data Block (CDDB) 


cddb 


AX/VMS Macro v04-00 
SDA.SRCIDEVICE.MAR; 1 


Display the Class Driver Data Block (CDDB) 


show_cddb: 


is there a cddb 


; no, so exit 


store address of local cddb 
; read entire cddb 
return if not able to read it 


#<dyn$c_cd_cddba8+dyn$c_ slosedrus -cOente a*rretce 


1,<!_!_-== Secondary Class Driver Data Block (CDDB) !XL <--> 


check for valid block type 
exit if not valid type 


need 15 Lines for this display 
advance 1 Line 


gore os address ¢ cddb to print routine 


- primar - epcontery 
secondary 14 bran 


<!_!_=== Primary Class Driver Data Block. Cope) ‘i o=-=> 


advance 1 Line 


ap = Address of UCB in local storage 
r6 = actual address of cddb 
eword 9 “m<r2,r3,°4,r5,r11> 
tstl r6 : 
beql 5$ ; 
movab Gegb. r2 
etmem (r6) (F5) W#cddb$c_length’ 
Lbc r0,5$ 3 
cmpw 
beql 10$ : 
Status success 3 
ret 
ensure 20 3 
ace 1 : 
pushl r6 $ 
tstw flag_2nd_cddb. : 
bneq second : 
rint 1 
rb dispTa Tay 
print 
ski 1 
mov aper)! 
alloc 


movzwl cddb$w statuetre), -(sp) 
pushab cddb_s 


aoe Rtanetate. bits 


movzwl orcstafus status(r2). -(sp) ; 


Rovebt #0. (r4)> 
movzwl tadose cntrlflgs(r2), ~(sp) 
pushab cddb_fla 


: “tfenstate. bits : 


| betes value of status fie 


save prewot tocar tea stack pointer 
80 byte output buffer 

cddb status field 

bit definition table 
translate bits to names 
address of output mt | Pa 


3; display status 
; eddb controller flags 


bit definition table 
Eeaestone bits to names 


; address a output descriptor 
movzwl cddb Su cntrlflgs(r2) 7(SP) 


<Confroller Flags: 
ril.sp : 


XW 'AS> 


prey 8 ototus 
restore A. pointe 


d to print 


: pass value of status field to prin 
5 
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show_cddb, Display Class Driver Data Blo 5- 4 SDA.SRCIDEVICE.MAR; 1 
1D 2799 skip 1 ; advance 1 Line 
9 Print co) vane 6. 
r2), r6,- 
¢ cddb_col_1,cddb_col_2,cddb_col_3 idisplay!!!! 
status success 
04 4A 04 ret 
48 05 
4B 06 
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-sbttl class driver data block tables & action routines 
The following are all PRINT_COLUMNS action routines for the show_cddb 


oe 
oOww 
—OoO 
—Owooe 


is ! ; block displays. 
rt 18 § Action Routine Inputs: 
4B 3 3 Re value from the COLUMN_LIST entry 
48 16 ; R size of value section for this item 
48 Wf 3 R? address of a descriptor for a scratch string in 
48 18 ; which the FAO converted value is to be returned 
rt J? : R11 base address of the local UCB copy 
is 1 3 Action Routine Outputs: 
4B : 3 RO status 
4B 4; lbs ==> use this entry 
4B 2825 ; lbc ==> skip this entry 
48 28 § 3 R1 = RS scratch 
ry : f 3 all other registers must be preserved 
a8 a 
re H ; PRINT_COLUMNS tables for CDDB displays 
48 2833 
48 B34 cddb_col_1: 
48 35 column_list - 
4B 2837 <<Al location class>,l_allocls,ul>, - ; 
48 2838 <<System ID>,cddb_4byftes, cddb$b systemid>, - 
4B 2839 <<>,cddb_2bytes,cddb$b_systemid?4>,- 
48 2840 <<Contrl. I1D>,cddb_4by os -cognee cntrlid>, - 
4B 2841 <<>,cddb_4bytes ,cddb$q_cntrlid+45,- 
48 ot§ <<Response ID>,l_oldrspid,xl>, - 
md status>,l_oldcmdsts,xl>,- 
; 48 4 <<MSCP Cmd status>,l_oldcmdsts,xl> 
33¢B 58c8 ; 
cB beg cddb_col_2: 
cB & column_list - 
CB 2849 <<CDRP Queue>,lcdrpqfl.q2>, - 
cB 50 <<Restart Queue>,l_rstrtqfl,q2>, - 
cB 3) <<Restarted CDRP>,rstrt_ drp.cddbsl_rstrtcdrp>. - 
cB § <<CDRP retry cnt.>,retry_cnt,cddb$b_retrycnt>, - 
cB : <<DAP Count>,b_dapcount,ub>, - 
cB 4 <<Contr. timeout>,w cntritmo,uw>, - 
CB 5 <<Reinit Count>,wiorstrtcnt,uw>, = 
ce § <clett UCB Count>,w_wtucbctr,uw>, = 
a 
58 $9 cddb_col_3: 
8 ? olumn_list - 
8 § cddb$, 16, 8, 0, < - 
58 6 <<0DB address>, (_ddb,xl>, ° 
58 64 <<CRB address>,l-crb,xl>, - 
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cddb_act nop: 
clr 
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SEP- 
SEP- 
<<CDDB Link>,| 
<<PDT address> 
<<Original UCB 
<<uCe chain>,l_ 


peeeeeeeeee 


tddb _4bytes: 
Yadd(3 


dl caer}! ors 
subl #8,r5 
$fao.s - 
ctrstr=cddb_f 
outbuf = (r?) 
eytien = (r7) 
=fr5,° 
52 = (r$) 
rsb 


Seeeeeeeeee 


cddb_2bytes: 
addl3 


r2, rii, e3 

subl #4, 5 

$fao.s - 
ctrstr = sb_f 
outbuf = (r7) 
yt en” (r7) 
pl * rs, = 
pe = (r$) 

rsb 


peeeereeeee 
rstrt_edrp: 
bbc 


addl rii,r2 
do_column_entry xl,jmp 


r0 
rsb 


peerererere 
retry_cnt: 


ao Sbytes, - 
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; locate storage of interest 
; get size of filler field 


; locate storage of interest 
; get size of filler field 


#cddb$v_snglstrm,cddb$w_ status(ri1), cddb_act_nop 
; cdrp only exists if single stream 
; locate cell to return 
; display this entry 


bbc #cddb$v_snglstrm,cddb$w Sgt g hae ocddb. act_n 
coun 


addl rii,r2 : 
docoluan. entry ub, jmp 


s valid if Single stream 
; locate cell to return 
; display this entry 
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342A 2914 -end 


Page (38) 


o V04-00 
ICE.MAR;1 


Be 03:33:17 USbasacioEy 


G 16 


Display device data structures 


Symbol table 


w 
Y 
_ 
> 
ua 
oa 


MCUMMMMM FT MIMIC 
pele alo lololololololoa) 


SDODVOVET ST VDO OO L— CVPR NOM~T DOO fF LNW DOMDDMODVOCOO1 COs VVOO—wTO 
WOK HK MINT — PIPN TF VNOOQCOOOOOCOOOOMVIM eH AWW Ve TOM OVO U dr OTOtVU I DODOOCOCOCO 


” a - - - wn ” 
b~ 4 —-o eciuiz w eo SBEOOF- o 
OZ: Yre@D OueOo WW oO OVvwrtetoeussa < 
J oavw Voce &AZZZO]SZV Bre ur VMwv / a | 
vid pat ee ed el ed LE el ee ee ee ee): 2 a. we od oa fo 
ona VEO Seve v JOwr-Ojcorecseeerun wo n”n eon Dau oon = 
AOC ODood OF OO 0.30 VOU Oe ee ew WZ OD ZO oe ee OMOOZZZ Ie 
AHO OIIEOMMV ZA IEE ZOO DUWWYSZZOre ee FF Ft tt UK we ZOOM VDIOCO o> 
ZVVV00000 €& DVN OH ZA GS SevvVveaevY3B> -~ReIIIJOCe wevudtdouw 0 TD BVUwsT- 
seespepeeoecepeepeeeeeee ee ect a kh ts HA MvOoOet Ue #sespceepeeeeee eee se 
aI I I I I I IS OO 2 FF SSH BBBIIVGT LOVOLUSY OBOVIIIIIIII>SSSoTS Sa 
AAARAAAPAPAAPAAAAAAPAPAAPAAPAAPAPAAAPAAPAAPAPAAAA 1 tts tt tt t § AMPMMHHAPHAHRHAGKHAHAPAHAGA 
BOODOMOOOOMOOMOMOMOOMOMOMMOOOAOMOAMAAOMOAMOMAAOAMOAOM@AOOOMOOMMA40600404000000000000 
SOooOoCoOoOKGOOOKOOOOOobOOAbOAOBOoAOoOoOoOoOoOoOoOoAooOoOoOoOooOoOoOoooae ae aaa aeaeaeaeaeeoeoeoeeaee 
HOGG OKOHHS GHG ABOAHKHKHAAHAAOABHAKHABAAGBAABAOAOCABAAABAOoOoOaoaoOaaoAaoOAaAaOoeGa 
2BVVOVVOVV VY VV VV VO VOY VOB BV BVO BVO 0 OVO VOU OU OOOO OOOO VOU OOUU 
wv mn Tw Lh Ll Lindl Lad Lal bol sr Moms 
oOo oo oO ooo°oeooe oOo oo°oo°oco 
=< =< 
a ae < acaeacanc a eacank 


w un = 
w ws z zum vz == 
aa .w=x =O enw -—NM ~w ee 
—- §-§MZDeE Kw se & I Dw a wu tr ¢ t 3 
Ye FYVUrFUO>> wadgwetunoea —— Arvo zs 
7~OQ A442 2e—- Jar £O00 2Zueuw>w vw wevVv <awrrww 
—OO VCIZR Were Ze ww 2ZVOHeewwZzew w _ wan ove 
ww 23 fae 4VUE Vue MEZSaOOA eV OO FA < a «tw a><«<a eee 
QawaYrte- BB e> i (eee seeececereererereerees wr > Y arr tt re | 
ZEMMZYVIEIY wYDB WO of a , 4 a>ooa> fVVUVUUrF < ewe eo oy 
a’. Babs Jeena ot anaaaanaaaaseee see ea owamaaeo sus JueesSses 
— 
RASRAAAAAAARseseeseseessoeeessssesssee esses saaesesscoosss 


me $ 


o v04-00 
ICE.MAR;1 


Be 03:88:17 ESbarsacIbEV 


H 16 


Display device data structures 


Symbol table 


[vel 
7 
_ 
> 
us 
o 


ball ll ll lll lll) MMMmm rH) 
COoOoooo0ooe ooo°o°0oo 
aeancacncaecaac @aaacaca 


SOooooooooooooooooooo SOOSSSSOSOSOSOSOSOOSOSOOOOSOOOOSOOOOOSOOOOOO 


nhnnunnnnnunn Hhuonnnnnnnnnun Hpnnnnnnnnnnnnnnnnnun 


“”) 
—_ 
oO 
@o ao 
- vw -—- & = 
ww ww t+ 4 -_ a Zu w > 
+z @ = ” -—wm eo &£&Ek 2=5D0N —TmM 
oF vo < w” 660 Rew WD Oo lt t 
o20u4 D> Zw «£4 22Z2ZQ0V02 -Ot-OV0MVKN2Z2Z220 
Oaw2- &2@ Oro 3 £EEVZ- ZO V44V4E-wWEEECO eee UIA De ee evOaeZz> 
VIOCCOA—OvVEt YVVOD DD <4wI< U0 2 2220 959559 Da Fw 2wWw ISO ws ED OOWwa 
<<mV00I4M7D0Z fatetet fet eS EY PHM Bada NOE 2VN ee COVV OOO OWwWue ee O- 
@etrrrerr et MOOVOOCOCO risrtrtrrerrrtitrs Ouw tittetetreeeeereereceeaeaesn 
Jas I Ne tO 2 I 8 8 I I J I IB BBO UE ZEEE SE SSS S>S>P>S>>r>>>> >> > 
PAPAAAACGAA 1 1 6 tt tt MAHAAAAGAAAGAA 1 1 1 1 HAAHAAAAGLALHAGLAAPAAAAABAA 
BDOODMDOMDOOODOOOMOMOOOOMOOR & ee ee ee ee ooo oe > o> Se SS SSeS SS SS > 
BOKOKDOOOBOOGBOOOKAKOOGOOKBOOKOKOKOOCOCOVUOAOOCCOCC OW WW WWWWWWWW 
r=YaY—l—t 1-1 1-1-1 --\-1-)-1-1-\-1-1-\-!-!)-1-)-\-\-!) -\-1-!-/-1-1-1-1-1- 1-1-1 YY eee 
reo Be MMC) TF N 
oo Ooo oOCoOoCOooO o 
i be 
ca eacaeaca a 


Suu 4 OOO # & QOOOOOOSOOOSOSOSOSOSOSOOSOSOSOSOOOCOSOOSoOo SOoooooo 
Ou 4 O00 # &€ QOSOOOOSOOOSOSOOSOSOSSOSOSOOSOSSSSOSOOSOSoOOo SoSoooooo 
O44 4 O00 # ¢ SDOQOOOOSOOOOOSOSOSOSOSOSOOSOOSOSOSSSSOSSSOSSOSOSOSSSOSSoO 


oe 
w 
* 3 
” 4 Ye Mee ” 
rc) VU3BVOI3ZOjII3Fr Dw z Vv = * 
«oOo <<0057775xxxxr- Tae _ —-NUMw w - «€ = = 
Z2v Jj2Z2rta #6 e6@6 6 § 6 6 § 8D ee maT 4 't ew —~+ =x =£ <tai &- & 
ee 2%u + WTOOCCCOCCCC0O0O ZV Or- Ox wWre UYU <M _ —- YworoxrsBw 
Wr > DOVUuVeE de de dee eee eZ XW ZED aASo< - ” @0A2220024 
a ma eet sw vy 1 ox ~SAIEYEX Vrwetwe tif 
(6+ $ Owwrmw ttrtitrrerert tt tut Oon ue Be >zavr1anW =“ O00 & <r UY UA Ye 
> ot Jj@o ont p 4 seeeeene wew 4 OO aero #eeeeeesd 
Cad sete A A YVYUUS6rYOVO ~~ IZEASVere Vv 
eaeeeeeee 55555 @Qooownoog ‘namnonnnnnnnnnanne' 2 
-¥-¥-¥-¥-¥-¥-} 4 4-1-1-1-1-1-1-1-1-1-]-]--4-4-4-4-4-4-4-4-4-4-4-1-4-4 -tetetetetetetetetetetetes-t-y-1-7-¥-7-7-7-) 
eee ee ere ee eee ee eee ee eee eee rere re ee eee eee -y-)-)-)-)-1-)-1-)-1-)-)-)-)-)-)-)-.-)--) 


Page (38, 


S$ Macr 
SDA.SRCIDEVICE.MAR; 1 


SOT Wake tbe dae 


I 16 


Display device data structures 


DEVICE 
Symbol table 


SR TMOCUIM FO CUM TWNOR. LUT KE MNUOMOWM &— — ORK -—DOMOMMN OOSTNWOUIPI &« DO OC MOR — UO 
SOOOCOOS FF EE — KOOQONNONNANNNOOONS —-SGOOSOOCOCS8 ee KK KKK eK KN KK — OOOO 
SOOCCOCOCOOOCGCOOOOCOOOOSOOSOSOOOSOOOOSOSOOSOOSOOSOOOOSOOoOOoOOoOO DOoOoooooo 


BHOGOKOOKHAOHOAKOKOHOKOHKOAKHHHAAHAGAHBHAGSHGHHAAGHAGBAABAABAAHBAGBAaSaAaaShBaaaa aaa ao 


MM MMMMMmmcay 
Oooooooooo 


oo 
@Qacncaecaacaca 


Besos sto ho hh 8 oo 9 9 8 8 8 9 8 8 SS SS SSS SSS SSSSSS 
COOOCOCOCOCOCOOOGOOOCGOSOSOSOSOSOSOSCOSSOOSSSSSOSOSOOSOSOCOOOOSOSSO: 


« 
a 
a 
<qwn 
~N ~v 
on a = 
cau ->> -— 
a <<a Quww U2Zww 
xe Era vr VOOR ae NOF>EIEMI TW CoAa0 2-2NII 232 o<«<« HN RK Kw 
EPS Fo 7 EH SS aoe (§t ee wet 2S2SZF NOS-VHOZ Sd ahh seth seth a al 
Ze zZz SESS SeecCMwMwnwnwivnvwveB it errr § KH ZYOP7 KRM KIS =+2 >~ 
tetepreeeecereeeeee ete eet tt t te eae i we el ele letet 4a eet Se z= 
Soo >>> a> a a> ea ee a> > >> > > 3 3 2 eo oss LI I UI LIU et fe OC aa 
SSS SSeS SSS SSS Se SSeS eee ese sss MASS PDD teeeeeee eee 6 6 ee 6 tb tt 
F888 8 8 8 8 8 FF SF SF FF SF FF FF FIFI PW WMNOVNYVYY) KH — - HAKHKHAAAAGHAGLAGAGAAAAAAA 
ae eet elt a en 8 0.88 oe ooo oooooesosssese 
SOHGOSHOHHAHHOGHHHHHHGOHGHGOHBHBGHAGBOGAAGHABGABAABGABAGoaGBoaaGHoooGooooSoaaaaaa 


Paae $0) 


O:s 
oa 
i< 
w= 
o: 
=s 
On menencu Troe Mmmm 
c> oO0O SoOo0O COCO 
vw 
sa 
=m 
wo =< =< 
ne 
=u <« ea cance 
c 


ww 
eoco 
an 
ror 
i) 
aa 
uw 
Mn 
te 
ow 
= 
=e ree 
> eo a he te J 
oa - @a<t2zz<aZz2 Ow w 
a ae ao om oa.5a[>ajDa]> cz -—-Ore ecw a at at oe 
oO - Ve Zvaw aw oOo +eeuueuUs or aw t46F8 -ao x | 
_ Menor Vv JOM ‘ese Vr OQwr- ow -—-o We S2SZ2ZoOwwvrwztdwww -—->- VYOoOoDm oo 
NVNONOSO KOMMYV.QQO > wa22z42ze VZOA22—-FEZOOCOV OSV wee 2A SP UZ 
- M<<EMOWMO JQOVUVVU Fr Odu Odu OA WWOM BZD PD SD-OOCWVUeetuUW We wMmOoOoOO«e- 
be tt § BVOMMMD> MAA ttttit &S } whe mR fot rete pete Oto} Pieter 
S>Zzoagceuw ttititit mm wmoweeeoo> F€OwW tities OCOwuw VUES ewwYecod<wwwww 
PP VYVVYYVUYUYUVYA § ttt tit § Bwor@se jsysuitBovvw> | ee etvOocowszk zaacacanx 
$8 6 8 § § PRMRARBHAGAA RWMWOVCVVCVVOVOUOZE | MeHSS4OA tit taen> ttrisrtrerereeeeeeeses 
PAHAAO@GRAOAOZZZZZZZZOOZA4A AAC ED o- BOSS SSSSSSSSSSSSESSSSSSSSSS 
AD ea et oes et ee 


10B 


OSOoOooKoCKOOKOOCOCOCOCOWuNBwwEenee nen OD 


$9999.99 999999 OOOO OS SSSSSSSSSSSSSSSSSSSSSSSSSS55 
SSS SSS SSS SS SSS SSS SSS SSS SSS 83838 SSS SS 8 SSS SS SSSSSSSSSssssssss 


COOOOOOCOOOOSOSOSOOOSOSSSOSSSSSSOOSSOSSSSSOSOSOSOOSOOOOOOOOOSoO 


Display device data structures 


~ HNN COP 
w pelt eet COOOWUMPI. UN =x 


a 
— 
2 

Le) 
~ 
3 

e 

~ 
” 


DEVICE 


K 16 
tan ren Display device data structures 19-36-1388 04:98:37 vag A Pel ae a Page & 
g-teeNor = $0008 RecpBY EF -aity = Sesenee 
s 

10$_ SENSECHAR = 3 MSCPSV~CF-MISC = 
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1O0$"SKIPFILE = 6 0 ; MSCPS$V~CF-SHADW = 09 1 

10$"SKIPRECORD = 026 MSCPSV"CF THIS = 00000004 

10$_SPACERECORD = 990 9 MSG$_SOCCESS aeeeeeeer xX 03 

10$—"UNLOAD = 00000001 NEW_PAG aeeeeeee X 03 

10$_WRITECHECK = 0 A NODRAM 5D 000060 R 2 

10$_WRITELBLK = 20 DPT~ O93 R 2 

10$"WRITEMARK = 000 c NUCL_ASCIC 09 E21 R 04 

10$"WRI TEOF = 999 K_ASCI 0000 a R 04 
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DEVICE Display device data structures 16-SEP-1984 01:26:37 VAX/VMS Macro v04-00 Pa 74 | 
Psect synopsis — eset Pi 84:98:75 SDA.SRCIDEVICE.MAR;1 ” (20) | 
+ eee eceeceeeecesece oy 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
-- 2 = £80008 0 ¢ 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 0000 2 4 ¢ 36.) 1 ¢( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SDADATA Be Nes 0 ¢ 1395-3 § ( §°} NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
VICE 000342A (13354.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 
LITERALS 00001B70 (¢ 7024.) 04 ( 4.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
pm moore nrencenc cen eso eee es + 
H Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization & 00:00:00.04 08 +00 00-32 
Command processing 108 4 She Soe: eS Bh 58 
ass 1290 8 SF 4 00:02:42. 
Symbol table sort 0 00:00:03.7 00:00:14.02 
Pass 2 919 B80: 00°F 00:00:34.74 
Symbol table output 1 0:00:00.44 00:00:01.57 
Psect synopsis output 0 00:00:00.02 88? 88780 +2) 
Cross-reference output 0 a 4 $84 SS 8:90:90 -08 
Assembler run totals 2349 00:00:58.4 00:03:37. 


The working set Limit was 3000 pages. 

381141 bytes (745 pages) of virtual memory were used to buffer the intermediate code; 

There were 190 pages of symbol table space allocated to hold 3185 non-local and 393 local symbols. 
4 source Lines were read in Pass 1, produc ing 108 object records in Pass 2 

69 pages of virtual memory were used to define 64 macros. 
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: Macro Library statistics ! 
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Macro Library name 


cm ese me ee em es ee ee ee ee ee om ee ee ee ee 


_$255$DUA28: (SDA. arene 768s 20 
"$255$DUA28:(SYS.OBJJLIB.MLB; 21 
$255$DUA28: (SYSLIBIJSTARLET.MLB;2 14 
TOTALS ‘all Libraries) 55 


3409 GETS were required to define 55 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:DEVICE/OBJ=OBJ$:DEVICE MSRC$:DEVICE/UPDATE=(ENHS:DEVICE) +EXECML$/LIB+LIB$:SDALIB/LIB 
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